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GASP - A COMPUTER CODE FOR CALCULATING THE THERMODYNAMIC AND 
TRANSPORT PROPERTIES FOR TEN FLUIDS: PARAHYDROGEN, HELIUM, 
NEON, METHANE, NITROGEN, CARBON MONOXIDE, OXYGEN, 
FLUORINE, ARGON, AND CARBON DIOXIDE 
by Robert C. Hendricks, Anne K. Baron, and lldiko C. Peller 
Lewis Research Center 

SUMMARY 


A FORTRAN IV subprogram, GASP, has been developed to calculate the thermo- 
dynamic and transport properties for 10 pure fluids; parahydrogen, helium, neon, 
methane, nitrogen, carbon monoxide, oxygen, fluorine, argon, and carbon dioxide. The 
pressure range is generally from 0. 1 to 400 atmospheres (to 100 atm for helium and to 
1000 atm for hydrogen). The temperature ranges are from the triple point to 300 K for 
neon; to 500 K for carbon monoxide, oxygen, and fluorine; to 600 K for methane and ni- 
trogen; to 1000 K for argon and carbon dioxide; to 2000 K for hydrogen; and from 6 to 
500 K for helium. Two-phase liquid -vapor properties are available; however, fluid mix- 
tures are not at this time part of GASP. 

GASP accepts any two of pressure, temperature, and density as input conditions. In 
addition, pressure and either entropy or enthalpy are also accepted as input variables, a 
desirable flexibility for cycle analysis. The properties available in any combination as 
output include temperature, density, pressure, entropy, enthalpy, specific heats (Cp, 
Cy), sonic velocity, (aP/3p)rp, (0P/0T)p, viscosity, thermal conductivity, and surface 
tension. 

The subprogram design is modular so that the user can choose only those subrou- 
tines necessary to his calculations. Existing equations are used for all fluids except 
fluorine and hydrogen. The equations for these fluids were developed by the authors 
from National Bureau of Standards data and the PVT surface cvmve -fitting technique of 
Bender. GASP was written for the engineer user who requires both accuracy and speed 
in calculating thermodynamic and transport properties. 



INTRODUCTION 


Cryogens are important fluids in many areas of modern technology. Among these 
are food preparation, power transmission, antipollution power -conditioning systems, 
neurosurgery, the Hg-Og propulsion systems for land-based and space vehicles, and 
proposed high-energy fuels for aeronautics. Because their properties are known and 
gradients are readily established, cryogens are often the primary test fluids in heat- 
transfer and fluid dynamics research. 

A Lewis Research Center literature and computer library search revealed no single 
computer code that could provide a flexible medium for calculating internally consistent 
thermodynamic and transport properties of the desired cryogenic fluids. A subprogram 
(subroutine) exists for nitrogen, called NTWO(ref. 1), which has the desired input-output 
flexibility. However, its results for nitrogen are not the best currently available. We 
decided to construct a multifluid, multiproperty computer subprogram based on the 
NTWO input -output structure using, for eight fluids, the best available equations that 
were also compatible with the desired program logic structure. The program is called 
GASP, an acronym for gas properties (ref. 2). 

We then decided that the only feasible way to maintain a viable properties program 
is by modifying and updating a basic properties program at periodic intervals. For 
this report, the 10 fluids chosen are based on the current and projected requirements of 
cryogenics research and development for aerospace and environmental applications at the 
Lewis Research Center and other NASA facilities and in industry. The equation-of -state 
coefficients are programmed so that fluids may easily be added, replaced, or updated 
when new equations or additional data become available. As such, we suggest that this 
report represent an ongoing program of maintaining GASP, where future revisions can be 
made by issuing looseleaf inserts to replace pages of this document. 

The main report consists of two sections which are directed to the research-oriented 
GASP user who must know both what is included in GASP and how to use it. The first 
section, ANALYSIS OF GASP , explains the contents of the program. It includes the 
Bender method for pressure -volume -temperature (PVT) surface curve -fitting (refs. 3 
to 5); the equations of state selected for eight of the fluids; the equations of state devel- 
oped by the authors for parahydrogen and fluorine; a discussion of the transport property 
calculations, including the prediction of the thermal conductivity anomaly in the critical 
region; comparisons to measured PVT data for each flviid; the question of extrapolation 
to higher pressures for parahydrogen in particular and other fluids in general; and com- 
parison of PVT data to other equations of state. 

The second section, USER’S GUIDE TO GASP , presents detailed instructions for in- 
put and output summarized in table form for handy reference. Three accuracy ranges 
for thermodynamic calculations using PVT measured data are discussed in relation to 
GASP. The use of a modular design in the prc^ramming of GASP simplifies dividing it 
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into smaller subprograms for users with limited interest or limited core storage. Cer- 
tain options are also provided for users wishing to make calculations in troublesome 
areas of the PVT surface. 

The mathematical and FORTRAN symbols used are defined in appendix A. The exact 
equations used are presented in appendixes B to E. Detailed information about the com- 
puter program is given in appendixes F to J. And the properties of parahydrogen are 
discussed in appendix K. 


ANALYSIS OF GASP 
THEORY (EMPIRICAL EQUATIONS) 

Selection of Equation of State 

We relied heavily on the published and private work of the German researcher Dr. 
Eberhard Bender (refs. 3 to 5). The equations of state for all but carbon monoxide, 
neon, and helium are those published by Bender or developed by us using Bender's com- 
puter program. 

The history of equation-of -state development is well delineated in the literature and 
only the important aspects of the authors' work will be mentioned. The modified 
Benedict -Webb -Rubin (BWR) virial equation (ref. 6) developed by Strobridge (ref. 7) was 
an important advance. The form of this equation is 

4 2 2 

P = P(T,p) = Y, A.(T)p^ + Y Bj(T)p^^'"^ (1) 

i=l j=l 

where P is the pressure and A^(T) and Bj(T) are polynomials in T and T"^. (All 
symbols are defined in appendix A and details are found in appendix B. ) 

This equation enabled PVT calculations to be made in the liquid and vapor phases 
with a single set of coefficients. The derived properties of enthalpy, entropy, (BP/ST)^, 
and (3P/3p)rp could also be obtained. The equation, however, had several serious short- 
comings; PVT predictions at the higher densities were greatly in error, calculations 

could not be made at the liquid -vapor boundary without an additional saturation equation, 

2 2 

calculations could not be made in the two -phase or metastable region, and the 3 P/9T 
did not give good values so that specific heats could not be calculated directly. 

Bender (ref. 4), whose major interest was fluid mixtures, used a modified 
Strobridge -BWR equation with additional terms in the "i" summation to improve PVT 
predictions at the higher densities. This equation is 
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( 2 ) 


6 2 .2 

P = P(T,p) = ^ A.(T)p^ + ^ B.(T)p2^‘^^ 
i=l 3=1 

where the explicit temperature -dependent forms of A.(T) and Bj(T) and other functional 
forms are given in appendix B. Similar forms have been used by others (refs. 8 to 11) 
for better high-density predictions. 

Several constraints have been found useful in the least -squares analysis of measured 
PVT data to obtain coefficients for equation (2). For example, Hxist and Stewart (ref. 9) 
applied the principle of corresponding states to the Strobridge-BWR equations to fit car- 
bon monoxide data. McCarty and Stewart (ref. 10) used the Joule-Thomson inversion 
locus as a constraint on their fit of neon data. However, Bender felt that the introduction 
of caloric data of lesser accuracy tends to compromise the accuracy of the fit to the PVT 
surface . 

Bender (ref. 4) used the common constraints, see appendix C, with one important 
additional constraint. Bender was particularly interested in assuring thermodynamic 
consistency throughout the PVT surface and especially along the liquid -vapor boimdaries 
so as to make possible the direct calculation of saturation properties from the equation 
of state. In order to accomplish this, he used a relation commonly referred to as the 
Maxwell phase rule (ref. 12) as an additional constraint in the least -squares fit. This 
relation 

/*v 

- P(V, T) dV + Pg^^ (V" - V ) = 0 (3) 


where 


P 

is a formulation of the equilibrium condition which exists at the liquid -vapor boundary. 

It states that the sum of the surface areas between the theoretical isotherm of the state 
eqtiation (metastable isotherm) and the stable straight-line isotherm of the wet -vapor 
region must be zero for a pure substance. The reader is referred to reference 3 for the 
complete analysis (also see ref. 5). 

When an equation of state is obtained with the Maxwell -phase -rule constraint along 
with the other usual constraints (eq. (C6) to (Cll)), saturation properties and metastable 
properties are directly calculable from equation (2). It should be noted that the GASP 
values for the critical parameters are the results of the least -squares fit but also agree 
well with reported values. 
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Bender’s equations for methane, nitrogen, oxygen, argon, and carbon dioxide . - 
The ability of the coefficients in the Bender equation to represent the PVT surface for 
any particular fluid depends, of course, on the existence of consistent and accurate PVT 
data over the surface range of interest. These measurements are expensive, time con- 
suming, and especially difficult in the near -critical region and along the liquid-vapor 
boundary, where accimate measurements are most necessary. Bender (refs. 4 and 5) 
carefully evaluated the existing data for the fluids methane, nitrogen, argon, oxygen, and 
carbon dioxide. We chose his equations of state for these fluids for GASP. The PVT 
ranges and critical parameters are given in table I. Bender carefully reported compar- 
isons to the measured PVT data used in his curve -fits. Additional data sets and PVT 
predictions of other equations when available are herein compared to PVT predictions by 
GASP. As additional data become available (as is now the case for methane, refs. 13 
and 14), the Bender coefficients covild be reevaluated with the improved or extended- 
range PVT data sets. However, we are confident of the equations for these five fluids 
for all but the most critical user. Extrapolation of the equations used in GASP has been 
satisfactorily compared to more recent data, as discussed in the section Pr e ssu re- 
Temperature Extrapolations of the Bender Fluids. 

Equations for carbon monoxide, neon, and helium . - The equations chosen for GASP 
for the fluids carbon monoxide, helium, and neon were the best available that were also 
compatible with the GASP program structure. They are, however, Strobridge-BWR- 
type equations fit on quite limited data sets without some of the constraints employed by 
Bender and recent researchers and investigators. 

The equation for carbon monoxide (eqs. (Bl) and (B2)) has been reported by Hust and 
Stewart (ref. 9). It is converted directly from the Strobridge nitrogen equation by using 
the Su principle of corresponding states. Since carbon monoxide has been of limited in- 
terest, the results are satisfactory at present. 

The neon equation (eqs. (Bl) and (B2)) is a slightly modified Strobridge -BWR equa- 
tion reported by McCarty and Stewart (ref. 10). The helium equation developed by Mann 
(ref. 11) and Mann and Stewart (ref. 15) differs from the Strobridge -BWR equation in 
that the exponential term is a function of temperature (eqs. (Bl) and (B2)). More re- 
cently, McCarty (refs. 16 and 17) presented an improved helium equation in a form not 
compatible to GASP. We attempted, unsuccessfully, to fit McCarty's recent helium data 
compilation to the Bender equation using Bender's program. The reasons for the failure 
have not been investigated. Any user wishit^ the best currently available subcritical 
temperature or near -critical temperature and pressure calculations for helium should 
use reference 17 or a program by the authors, HELP, ^ based on references 16 and 17. 
The helium equation (ref. 11) in GASP should be considered valid above 6 K. 
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Equations for fluorine and parahydrc^en . - Prydz and Straty (ref. 18) have recently 
measured PVT data for fluorine. Their report on the properties of fluorine and on the 
entire F 2 PVT data set used by Prydz (including his own and other researchers) was 
chosen as the best and most up-to-date source for fluorine. The coefficients which we 
obtained for fluorine, ^ table H, by using Bender's curve -fitting technique compare well 
with the data as reported in the next section. 

We found no single coefficient set for the fluid parahydrogen, although its properties 
are and have been of much interest. Many limited -range equations, especially the early 
work of Roder and Goodwin (refs. 8 and 19) have been available in computerized forms. 
Tables of smoothed hydrogen data and their extrapolations have been compiled and com- 
puterized, the most popular being the NBS TABCODE computer program. ^ A most re- 
cent publication by McCarty and Weber (ref. 20) uses several eq\iations of state, depend- 
ing on the region of interest, and includes many useM parahydrogen properties over a 
wide PVT range. 

We wanted a coefficient set for a Bender parahydrogen equation to use in GASP that 
coxild also compare favorably to reference 19. Goodwin’s parahydrogen data set and 
Bender’s curve-fit program were used to develop a set of coefficients (table n) that pre- 
dict parahydrogen PVT data quite well and can also reproduce the NBS high-pressure 
PVT extrapolations of reference 20. The simplicity of this Bender -type equation 
(eq. (2)) compared to the computerization of reference 19 should be preferable for all but 
the most critical user. 


Calculation of Transport Properties 

Transport properties are related to the dynamics of the system (e.g. , viscosity to 
fluid flow, and thermal conductivity to heat transfer). Precise measurements in such 
systems are extremely difficult, and errors of over 5 percent in the gaseous phase and 
15 to 20 percent in the dense -gas or liquid phase are not uncommon. Consequently, at 
this point in the development of GASP, we chose to abandon ’’precision” in favor of con- 
sistency. In order to do this, we chose generalized forms for fitting the transport prop- 
erties which, for the most part, are (1) functions of only temperature for the dilute gases 
and (2) functions of only density (excess data, i.e. , p - p* and k -k*) for dense fluid 
regions. Such representations can obviously lead to erroneous results. For example, 
thermal conductivity data near the critical density but at 1. 5 times the critical temper- 
ature are not representative of all data along the critical isochore, as would be implied; 
and viscosity coefficients are temperature sensitive at reduced densities greater than 2. 

^The derived properties of fluorine need further work. The authors recommend that the user 
check the results above 1 MPa (10 atm). The extensive PVT data were made available from NBS. 

^Available from H. M. Roder, National Bureau of Standards, Boulder, Colorado. 
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Viscosity . - The dilute-gas viscosity for all fluids in GASP, with the exception of 
hydrogen, is based on the simplified Chapman-Enskog model (ref. 21) 


* 


0.2669X10 


-4 


( 4 ) 


The dilute -gas viscosity for hydrogen is based on the work of Diller, Hanley, and Roder 
(ref. 22). Extensions of this work to higher temperatures (1000 K) proved satisfactory. 
However, above 1000 K, the Chapman-Enskog model was again used. 

The Enskc^ dense -gas theory suggests that an excess in viscosity can be treated as 
a function of density alone. From the work of Jossi, Stiel, and Thodos (ref. 23), this 
seems justified for the fluids in GASP and was modified and adopted for use herein. 





where 


(5) 


t1/6 

^ ^ 

j^l/2 p2/3 
c 

The formulation appears valid except for dissociation and some regions beyond p =2 
where some temperature dependence can be noted. For fluorine, a small correction 
factor was added, based on the work of Hanley‘S. 

The regions covered and the specific formulation and coefficients used are given in 
table X and appendix B . 

Thermal conductivity . - Eucken proposed that the dilute -gas thermal conductivity be 
the sum of translational and internal molecular energies times some factor 


kM 



The Mason and Monchick model (ref. 24) gives the sum as 


(6) 



1.32 + 1.77 R - 0.917^ ^ 


“^Private communication with H. J. M. Hanley of National Bureau of Standards, Boulder 
Colorado. ’ 


(7) 
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wh6r6 Z r6pr6S6nts th6 collision number. Broksw (ref. 25) determined 3. simple em- 
pirical form for the sum 


^ f.C. = 1. 24 + 2. 54 (8) 

While the preceding equations are the basis of dilute -gas theory and used to determine 
the thermal conductivity of fluorine, empirical formulations given by Stiel and Thodos 
(ref. 26) and by Roder and Oilier (ref. 27) for hydrogen are used in GASP. Reference 26 
gives a reduced form 

log 10 

while reference 27 gives a slightly more elaborate form for the sum . See appendix B 
and table X for specific forms and coefficients and table in for the sources of the con- 
stants and coefficients. 

For the dense-gas region, excluding near critical, the excess thermal conductivity 
(like viscosity) is a f\mction of density alone. The exceptions here are the thermal con- 
ductivities of helium and hydrogen near the saturation boundaries, which are also func- 
tions of temperature. These fluids are handled separately and use the fits determined by 
McCarty and Roder (refs. 16 and 28) and by Roder and Diller (ref. 27) for helium and 
hydrogen, respectively. For other fluids covered by GASP, the formulation of Stiel and 
Thodos (ref. 26) is used; 



4 

log 10 [(k - k*)Z^x] = Y, ai(log Pr)' 

i=0 


( 10 ) 


where 


Zc = 


RPe^c 


and 


\ = 


p2/3 

c 
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It is expected that none of the results from these equations can be any better than 
±5 percent in the gas phase and ±15 percent in the liquid or dense-fluid phase. Diller, 
Hanley, and Roder (ref. 22) report that even higher errors may be likely because of otir 
inherent lack of vuiderstanding of the problem. However, current work by Sengers, 
LeNeindre, Tufeu, and Bury (refs. 29 and 30), Hanley, and others should bring these 
problems sharply into focus in the near future. 


Calculation of Anomalous Properties 

Thermal conductivity . - The anomalous behavior of the thermal conductivity in the 
region near the thermodynamic critical point is directly related to the specific heat at a 
constant pressure; see, for example, Roder and Diller (ref. 27) and Brokaw (ref. 25). 

In reference 31 the authors compare the techniques of Brokaw and of Sengers and Keyes 
(ref. 32) and conclude that both techniques are capable of reproducing the carbon dioxide 
data. However, the technique of Sengers and Keyes (ref. 32), as extended to other fluids 
in reference 31, was adopted because of its simplicity, accuracy, and relation to the 
scalii^ laws. GASP returns the anomalous thermal conductivity values for the region 
0. 4 Pr 1. 6. However, to obtain the total thermal conductivity, the anomalous value 
must be added by the user to the thermal conductivity 

= ( 11 ) 

More recent work of Sengers, LeNeindre, Tufeu, and Bxrry (refs. 29 and 30) indicates 
that an acceptable theoretical approach based on scaling laws and molecular potentials 
may be developed. 

Viscosity . - Quite close to the thermodynamic critical point, viscosity also exhibits 
anomalous behavior. Unlike thermal conductivity, where the anomalous behavior is very 
strong, the anomalous behavior of viscosity appears quite weak and more closely par- 
allels the behavior of C.^. In simplified terms, the near -critical behavior (alorg the 
critical isochore) can be thought of in terms of the function 

|l - Tj^l -P (12) 


where 


p = 1. 2 to 1. 3 for thermal conductivity 
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and 


p = 0. 04 to 0. 06 for viscosity 

The effect, for viscosity, appears quite weak and is not calculated herein. 

Surface tension. - In 1894, van der Waals suggested that the behavior of the 
surface-tension group with temperature follows a power law. 


^ (l 

^l/3p2/3 V 
c c 



(13) 


where C and p are constants. Brock and Bird (ref. 33) determined that C varied 
cr ^ 

with the Riedel factor a : 


C^ = 0. 133 a- - 0.281 

U ^ 


(14) 


where 


a = 

c 


d In P 


R 


d In T 


R 


and 


p = 11/9 

The Brock and Bird equation is used in GASP to determine surface tension. However, 
the equation is not applicable to hydrogen or helium because of quantum effects, and 
consequently we used pseudocritical values for these fluids. Details of the equations 
and coefficients are found in appendix B. 


EVALUATION (RESULTS) 

Pressure -Volume -Temperature Comparison 

We have evaluated Bender’s equation of state for methane, nitrogen, oxygen, argon, 
carbon dioxide, fluorine, and parahydrogen by comparing GASP -calculated PVT values 
to the measxired PVT data of several investigators. The comparisons presented for most 
fluids are in the near -critical range or near the two -phase boundary. Although we made 
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other comparisons, those in the near -critical range are the most revealing since this 
portion of the PVT svirface is the most difficult to represent by an equation of state valid 
for the whole siu-face. 

The comparisons for the fluids fit by the authors, fluorine and parahydrogen, and for 
a fluid of interest to the Lewis Research Center's Aerospace Safety Research and Data 
Institute, oxygen, are made with most of the available data for the fluid as furnished to 
the authors by the NBS Cryogenic Data Center. Comparisons of data to values calculated 
from a state equation for carbon monoxide and neon can be found in references 9 and 10, 
respectively. 

The results of these comparisons are presented as figures 1 to 18 and summarized 
in table IV. The measured PVT data are the standard for comparison, and three plots 
are shown for each set with the percent deviations plotted as the ordinate and the reduced 
compared parameter, T, P, or p in that order, as the abscissa for each fluid. 

Methane . - Figure 1 compares GASP -calculated PVT data for methane to the data of 
Jansoone, Gielen, DeBoelpaep, and Verbeeke (ref. 34). The temperatures are within 
±0. 1 percent, and the pressures generally agree within -0. 5 to 1.0 percent. The den- 
sities show some irregularities near Pr = 0. 98; but since the temperature range is 
within ±2 K of the critical value (190. 77 K), this is expected. In general, the GASP pro- 
gram will show significant deviations slightly below the critical point, but it is good 
above the critical point. This may be caused by the mismatch, near the critical point, 
between Bender's saturation data and the vapor pressure equation used in GASP 
(eq. (B18)). While reference 34 presents an equation that predicts these data very well, 
the equation is valid only for the near -critical range. 

The PVT data of Vennix (ref. 35) for methane are compared in figure 2. The GASP- 
calculated temperatures are within ±0. 25 percent o f the V o nnix da ta, except for a few 
points which are within ±1. 0 percent; the pressures are generally within ±1.0 percent, 
with more than one-half of the pressure values agreeing within ±0. 5 percent. 

A few pressures near the maximum density range (~2. 5 p^) show deviations greater 
than 2 percent. The GASP densities are within ±2. 5 percent, with most of the values 
within ±1. 0 percent. One density value at 190. 80 K showed a 6. 5 percent deviation from 
the Vennix data. Vennix (ref. 35) presented an equation of state for methane with 24 co- 
efficients which predicts his PVT data with about the same deviation in pressure as the 
Bender equation in GASP (fig. 3). The claimed density predictions of reference 35 are 
better than the GASP values. We tested the Vennix equation and found it unacceptable for 
PVT and derived property calculations at temperatures less than ~155 K and for some 
higher ranges in derived properties. 

The PVT data of Goodwin (ref. 13) for methane are compared in figure 4. The 
GASP -calculated temperatures are within -0. 8 to 0. 3 percent, with most data within 
±0. 2 percent and major departures confined to 0. 7 < Tj^ < 1. The calculated pressures 
are most satisfactory for Pj^ > 1, with deviations of -0. 5 to 3. 0 percent, and least 
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satisfactory at very low pressures, where there are five points with deviations above 
20 percent. The cai'duTat^d densities are within ±0. 5 percent, except in the critical 
region (p^ ~ 1), where departures of -3 to 2 percent are noted. 

Nitrogen. - The Strobridge PVT values for nitrogen were calculated by usii^ equa- 
tion (1) and necessary constants from reference 7. The equation was extrapolated to 
1000 K and 50 megapascals (or MN/m^). As might be expected, these extrapolated PVT 
data show the largest deviations from Bender’s results. The results in figures 6 to 8 
show temperatures within ±2 percent for densities less than 2. 5 p^. The temperature 
deviation in the dense liquid ranges to -4 percent, with the largest errors at the highest 
densities. The pressures are within ±5 percent, except for the dense-liquid low- 
temperature region, where deviations to -10 percent and greater are found. The 
Strobridge fit is inadequate in this portion of the PVT surface, and we consider Bender's 
values more accurate than the Strobridge -BWR fit of the standard PVT surface. The 
densities, figure 6(c), are within ±2.0 percent, except for deviations near the critical 
isochore. 

Figure 9 compares calculated PVT values with the liquid -saturation and near- 
critical data of Weber (ref. 36). The density comparison is most crucial in the near- 
critical area of the PVT surface. The values calculated by GASP are within ±0. 5 per- 
cent, except for data on two isochores at 0. 265 and 0.467 g/cm^, where deviations are 
from -3. 0 to 1.0 percent. The liquid values (high density) predicted by Bender are lower 
than those of Weber by approximately 0. 003 g/cm^, while the Bender density along the 
0. 265-g/cm^ isochore is slightly higher. Figure 10 is discussed later. 

Coleman and Stewart (ref. 37), after an exhaustive compilation of the literature, 
derived an equation of state similar to that of Strobridge (ref. 7). A comparison of this 
wide-range PVT equation presented in reference 38 with the Bender fit indicated little 
difference in PVT results. However, the equation was judged unacceptable because of 
anomalous calculated derived properties and also because it was the more complicated 
form. 

Oxygen . - From the PVT data of Weber (ref. 39), 1352 data points were used by 
Bender (ref. 4) in his oxygen fit. We compare 1478 PVT data points from reference 39 
with those computed from GASP in figure 11. Most temperatures are within ±0. 15 per- 
cent, including the PVT saturation data. The majority of the pressures are within 
1 percent, except in the high-density region (p > 2. 5 p^), where 1 to 2 percent devia- 
tions are common and a few deviations to 20 percent are found at very low temperatures 
(<70 K). Most densities are within ±0.2 percent, except in the critical region, where 
the maximum deviation is ±2 percent. Figure 12 is discussed later. 

Argon. - Subcritical PVT data for argon reported by Van Itterbeek, Verbeeke, and 
Staes (ref. 40) are compared with GASP -computed values in figure 13. The temper- 
atures agree within ±0. 3 percent, with most being within ±0. 1 percent. The pressures 
are within ±5 percent, with a few errors to 10 percent for the 90 to 110 K range. The 


12 



densities are in excellent agreement, with more than one-haK the Bender values being 
within ±0. 1 percent of the data. We noted two discrepancies in the plotted and tabulated 
data of reference 40, so the temperature value selected for two of the isotherms may be 
in error by 0. 05 K. 

Carbon dioxide . - The PVT data of Michels, Blaisse, and Michels (ref. 41) are com- 
pared to the GASP -calculated carbon dioxide values in figure 14. A few values listed in 
reference 41 were in the GASP two -phase region and are not considered. The temper- 
atures are within ±0. 1 percent. The pressures are within ±0. 5 percent, except for three 
deviations to 5 percent at the highest measured density. The density deviations are well 
scattered within ±4 percent. 

Helium . - Helium values for five isobars and a temperature range of 2. 5 to 1500 K 
were calculated by using McCarty's three -region fit (ref. 17) as the best available source 
for comparison. The comparison to the Mann equation used in GASP is shown in fig- 
ure 15 (eqs. (Bl) and (B2)). The temperatures are within ±1 percent, except for near- 
critical deviations to 3 percent and dense -liquid (p > 2. 8 p^) deviations to ±10 percent. 

The pressures are within ±0. 1 percent for T > T^ and within ±10 percent at subcritical 
temperatures. Large density deviations occur in the near -critical region (3 to 6 K), and 
elsewhere density agrees within 1 percent. The PVT range for helium based on Mann's 
equation from reference 11 (table I) is quite limited compared to reference 17. There- 
fore, part of the comparison is really an extrapolation and hence subject to uncertainty. 
We do not recommend the use of Mann's equations in GASP for T < 6 K. 

Fluorine . - An extensive compilation of the thermodynamic properties of fluorine 
has been made by Prydz and Straty (ref. 18), including 850 points of measured PVT data. 
These data and saturation data from reference 42 were used by the authors to obtain the 
fluorine coefficients in table II. The comparisons are shown in figure 16. The temper- 
atures are within ±0. 15 percent, except for very low temperatures, where a few devia- 
tions are near 1 percent. The pressure errors are within 1 percent, except for the re- 
gion where densities are greater than 2. 5 (meltir^ locus) and temperature is less 
than 90 K, where larger errors occvir. The densities are within ±0. 5 percent, except 
near the critical isochore or isotherm, where deviations to 3 percent occur. 

Parahydrogen . - The parahydrogen data compiled by Roder, Weber, and Goodwin 
(ref. 19) and by McCarty and Weber (ref. 20) are compared to GASP -calculated values 
in figures 17 and 18. 

The temperatiires agree within ±0. 25 percent, except for a few points which deviate 
to ±0. 5 percent. The pressures are within ±1 percent, except for several points in the 
near -critical area or near the melting locus. The densities are within ±0. 5 percent, ex- 
cept near the critical isochore, where deviations to ±3 percent occur. Densities greater 

O 

than 0.06 g/cm are all within ±0. 1 percent. The critical density p of reference 19 is 
3 

0. 03142 g/cm , whereas the we determined in the Bender fit is 0. 0311 g/cm*^. 
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Additional comparisons. - The derived properties for all the fluids were compared 
to the existing standard data source for the fluid published by the National Bureau of 
Standards (e.g. , refs. 9 to 11, 17, 39, and 43). The results are in excellent agreement 
for most fluids, except for small differences in the critical and dense-liquid regions in 
the specific heats and the velocity of sound. Slight differences in calculated pressure in 
the dense-liquid region result in larger differences in the (3P/9T)^ and (3P/9p)rp and 
much larger differences in (^3^P/9T^)^^ (e.g. , for neon and carbon monoxide along 
the saturation locus can be negative). Also slight differences in the calculated densities 
near the critical region can cause problems when comparing derivatives. The critical 
parameters used in GASP are the least-squares-determined values, whereas the NBS 
standard reports correct the equation of state along the two -phase boundary and in the 
near -critical region to agree with known measured parameters, including C^, in this 
region. 

For all but the most critical user, the GASP -derived values are compatible with 
standard references for each fluid. The exceptions are carbon monoxide, neon, and 
helium, where nothing better than GASP is available for the first two fluids. McCarty’s 
helium references are to be used in preference to GASP for all subcritical or high- 
density helium derived-property calculations. 


Pressure -Temperature Extrapolations of the Bender Fluids 

Recent interest in both very low- and very h^h-pressure results for hydrogen and 
oxygen prompted us to attempt calculations in this range using GASP . 

Low pressure . - Results in the low-pressure region for both hydrogen and oxygen 
show that the equation approaches ideality at 10"“^ megapascal, as verified by the calcu- 
lated isotherm and isochore derivatives. 

High pressure and high temperature . - High-pressure -hydrogen extrapolations were 
compared with the data of McCarty and Weber (ref. 20). We were amazed at the excel- 
lent agreement, as shown in figure 19 for density, (9P/9T)p, and (9P/9p),p. The density 
deviations are systematic with pressure, yet within +0. 5 to -1.5 percent, except at 
68. 948 megapascals (10^ psia), where deviations near p = 1. 5 are closer to +0. 6 to 
-1.8 percent. Deviations in (9P/9T)p and (9P/9p),j, are most significant near 300 K, 
yet are less than 2^ percent for the extended temperature range 600 to 2779 K. Since the 
range of reference 8 is to 300 K, the disagreement may be due to matching of regions. 
The agreement is remarkable over the extended range to 2779 K and 68. 948 megapascals 
(10^ psia) as Bender's equation uses no dissociation corrections. Reference 20 is a 
multiregion approximation, while the Bender extrapolation is only one equation. 
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Streett measured PVT data for oxygen along six isotherms (96, 100, 110, 170, 

190, and 250 K) with pressure varying to 680 atmospheres. High -pressure- oxygen ex- 
trapolations were made to these data, as illustrated in figures 20 and 21. As with the 
hydrogen, the extrapolation seems remarkably good, except for low pressures and high 
temperatures. Such results are inconsistent with the remarks of reference 39. At the 
higher densities (high pressure and low temperature), which is the region of major in- 
terest, the deviations in pressure are less than 3 percent for P > 0. 8 P^, the deviations 
in density are less than ±0. 05 percent, and the deviations in temperature are less than 
±0. 2 percent (T < 170 K) and less than 0. 2 to -1. 6 percent for all the data. 

The extrapolations necessary for Joule -Thomson calculations were consistent with 
other published values and are presented in reference 38. In general, the temperature 
range can be increased with greater confidence (up to dissociation) than the pressure 
range. The best extrapolated results come from extending the temperature range for 
oxygen and parahydrogen. Also, the helium temperature (but definitely not pressure) 
extrapolations give good results. The maximum range for each fluid (table I) includes 
extrapolated limits, where we found the errors to be within the same range as the errors 
in the original fitted surface. 

The melting locus is not programmed in GASP and would be useful for calculations 
in the very dense liquid region. 


Pressure -Volume -Temperature Comparisons to Other Equations of State 

The comparison, given in reference 38, of the Coleman-Stewart equation (ref. 37) to 
the Bender fit can also be considered part of this section (see the discussion of nitrogen 
in the section Pressure-Volume-Temperature Comparison and fig. 7). The basic equa- 
tion for comparison here was developed by Stewart, Jacobsen, and Meyers (ref. 44). It 
is a 33-term modified BWR equation and is readily adapted to equation (Bl), where N = 9 
and M = 6. Other differences are found in the specific form of the coefficient arrays and 
the appearance of a\/T term. The specific forms are found in appendix D. 

In order to put the Stewart formulation into GASP, a number of changes had to be 

made. A few problems in operation were encountered. This formulation involves rather 

±35 

large powers of density, which gave exponents greater than 10 . Convergence to a 

meanit^ul density on an IBM 7094-7044 type machine was not found, except for the gas- 
eous region, where the exponentials are not important. The equations as such are not 
easily run on machines such as the 7094-7044. Double precision does not alleviate the 

problem. In order to make the following comparisons, the equation had to be repro- 

+88 

grammed in double precision on the IBM 360-67, which carries exponents to 10* 

Even there, und erflows were quite often encountered, but most times convergence on 
^Unpublished data taken by William B. Streett, U. S. Military Academy, West Point, N. Y. 
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density and calculation of pressure gave meaningful results. 

Nitrogen - generated ’’data, ” - While a consistent set of nitrogen data is not avail- 
able, several comparisons can be made in figure 7. The PVT values were compared by 
inputting either (P, T), (P,p), or (p, T) as generated by GASP into the equation of Cole- 
man and Stewart (ref. 37). The deviations are quite small, but a change in form of 
equation (Bl) does not appear warranted. 

In figure 8 a similar comparison was made to the 33-term modified BWR equation of 
Stewart, Jacobsen, and Meyers (ref. 44). Generated P,T data gave a comparison of 
deviations in density, as shown in figure 8(b). The deviations are well within 1 percent, 
with increased deviations at higher densities. However, the generated density, when in- 
putted into the 33 -term equation, did not always properly converge, and significant devia- 
tions for T < Tp were noted. 

We then generated p,T and compared the deviations in calculated pressure. Again 
the deviations for T < T^ or T < the liquid region were large, and the conver- 

gence not always assured. The technique of solution and the cause of these irregularities 
require further investigation. 

Nitrogen - measured data. - Figiue 10 compares the calculated values of refer- 
ence 44 with the near -critical nitrogen data of Weber (ref. 36). The deviations in pres- 
sure (-1 to 3 percent, fig. 10(a)) appear slightly better than those of figure 9(a). The 
deviations in density range from 1. 5 percent at low densities to ±0. 1 percent at higher 
densities (fig. 10(b)) and also appear slightly better than those of figure 9(b). 

Methane . - The recent methane data of Goodwin (ref. 13) represent an accurate con- 
sistent set of PVT measurements for fluid methane. Using these data and the techniques 
of Hust and McCarty (ref. 45), McCarty (ref. 46) developed a Stewart-type equation, and 
the relative errors in pressure are given as figure 5(a). For the most part, the relative 
error falls between ±1 percent, with the exception of a few points at lower pressure (with 
rather large deviations, ~10 percent) and some near the critical pressure. The density 
deviations of figure 5(b) are for the most part within -0. 25 to 0. 5 percent, except for a 
few points near the critical density. 

Comparing figure 4(b) with 5(a) and figure 4(c) with 5(b) gives 


Parameter 

Region 

Equation of state (eq. (Bl)) 



N = 6, M = 2 

(Bender -type equation, ref. 4) 

N ^ 9, M = 6 

(Stewart -type equation, ref. 44) 

Pressure 

Low 

Neai' critical 
High 

A few points (5) to 40 percent 
A few points to 10 percent; 
for the most part, 1 to 5 percent 
-1 to 3 Percent 

A few points (4) to 10 percent 
±2 Percent 
±1 Percent 
-0. 7 to 1 Percent 

Density 

Near critical 
Other 
High only 

-2 to 1.5 Percent 
-0. 3 to 0. 1 Percent 
-0. 4 to 0. 05 Percent 

±0, 2 Percent 
-0. 25 to 0. 6 Percent 
-0. 2 to 0. 05 Percent 
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The McCarty fit (ref. 46) of the Goodwin data does represent the data more accurately 
than the Bender-type fit. However, a refit of methane using the Goodwin data may also 
prove fruitful. 

Oxygen. - The data of Weber (ref. 39) represent an accurate and consistent set of 
PVT data for fluid oxygen. These data and the Bender -type equation are compared in 
figure 11. When the 33 -term equation and coefficients as determined by Stewart, 
Jacobsen, and Meyers (ref. 44) are used, the relative error in pressure appears as in 
figure 12(a). The relative error at low pressure appears systematically scattered about 
±2 percent, with a few points outside this range. At higher pressure the scatter appears 
about ±1 percent, again a few points outside this range. The relative error in density is 
illustrated in figure 12(b). For the most part the scatter is within ±0. 1 percent, except 
near the critical density and some points at rather low densities. 

Comparing figure 11(b) with 12(a) and figure 11(c) with 12(b) reveals 


Parameter 

Region 

Equation of state (eq. (Bl)) 

N - 6, M = 2 

(Bender -type equation, ref. 4) 

N - 9, M = 6 

(Stewart -type equation, ref. 44) 

Pressure 

Low 

± 2 . 5 Percent 

±2 Percent 


High 

±1.5 Percent 

±1 Percent 

Density 

Near critical 

±2 Percent 

±0. 8 Percent 


Other 

±0. 3 Percent 

±0. 1 Percent 


From these comparisons, either eqxiation can be used with good results, except in pre- 
dicting density near the critical point, where the Stewart -type equation is better. 

Parahydrogen . - The parahydrogen data of Goodwin (refs. 8 and 19) represent prob- 
ably one of the most exhaustive PVT studies in the literature. We used these data to de- 
termine a Bender -type equation (eq. (Bl)) for parahydrogen. The PVT comparisons are 
made in figure 17. When the 33 -term equation and coefficients as deteunined by Stewart 
(ref. 44) are used, the relative error in pressure is given as in figure 18(a). The rela- 
tive errors lie for the most part between ±1 percent at low pressures and ±0. 5 percent 
at high pressures. The relative errors in density (fig. 18(b)) are for the most part 
within ±0. 2 percent, except near the critical density, where errors to ±0. 7 percent are 
noted. Cross -comparing the relative errors of figure 17(b) with 18(a) and figure 17(c) 
with 18(b) reveals 
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Parameter 

Region 

Equation of state (eq. (Bl)) 

N = 6, M = 2 

(Bender -type equation, ref. 4) 

N = 9, M = 6 

(Stewart -type equation, ref. 44) 

Pressure 

Low 

-0. 5 to 1.5 Percent 

-1.0 to 0.8 Percent 


Moderate 

±0. 2 Percent 

iO. 4 Percent 


High 

±0. 3 Percent 

±0. 5 Percent 

Density 

Near critical 

±2 Percent 

±0. 6 Percent 


Other 

-0.3 to 0.2 Percent 

±0. 2 Percent 


It would appear that the Bender -type equation is superior except in predicting density in 
the near -critical region, where clearly the number of constraints of reference 44 
(13 additional terms) does appear helpful. 

The greatest advantage of having a single accurate and consistent set of data to de- 
rive a curve fit is the accuracy with which it reproduces the data. This is readily ob- 
vious from the parahydrogen results, where both McCarty (ref. 46) and the authors 
used Goodwin’s data to develop a PVT surface. The results are self-evident. There 
is virtually no improvement in predicting the PVT surface, except for density near the 
critical point. Here the extra terms do seem to merit use. 

While similar remarks can be made for oxygen, methane serves as an example of 
not having a self-consistent set of data available (e.g. , the comparison of the Bender-fit 
to the McCarty fit in the section Methane ). Clearly, the McCarty fit is better. The 
question as to whether it would be better if all the methane data were used in the fit still 
remains to be investigated. 

Some current drawbacks in changing to a 33 -term equation (Stewart type) are as 
follows: 

(1) The coefficients are available for only four fluids. Thus, several refits would 
be required. 

(2) Such an equation is limited to specific computing machines 

+88 

(a) Because it requires double precision, 10 capability, additional storage, 
and data set modifications 

(b) Because exponentials can become sufficiently large as to cause overflow 
and underflow 

(3) Thirteen additional constants (i. e. , 33 as opposed to 20 for the Bender -type 
equation) are required. 

(4) The first virial coefficient is not a polynomial. 

Some current advantages in changing to a 33-term equation are 

(1) Better PVT representation of the near -critical region and along the freezing 
locus 

(2) Better behavior of 0^P/0T^ at low temperatures (One may not have to use num- 
erical determination of in this range, as is now done in GASP. ) 
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At this time, we feel that the Bender -type equation will provide adequate physical 
properties for all but the most critical user. However, the revision of the Bender -type 
equation is under consideration. And as delineated in the INTRODUCTION, we suggest 
that this report represent an ongoing program where revision can be made as more in- 
formation becomes available. 


USER'S GUIDE TO GASP 

Researchers interested in thermodynamic property calculations generally require 
highly accurate results; another class of user requires high-speed access; while still 
another class requires moderate accuracy and access time. Calculations for such proj- 
ects as a final analysis or calibration, scientific calcxilations, or tabulated data require 
the best accuracy attainable. Speed and core storage are of lesser concern. For this 
purpose, isochores and isotherms of the best data available are used to obtain PVT data 
and derived properties. The user is usually working with a limited portion of the PVT 
surface and is not too concerned about the consistency of the whole surface. 

Cycle or system analysis, simulation for Skylab, or flight simulation are examples 
of calculations requiring speed and having limited core storage. Tabular look-ups or in- 
terpolation with limited-range equations using few coefficients provide the greatest speed 
cind the least core storage. The parahydrogen computer program TABCODE is an 
example. Depending on the grid of the table or the spacing of the polynomial ranges, 
accuracy can be obtained, but thermodynamic consistency is not guaranteed. 

Most calculations with test data from thermodynamic -related experiments require 
both accurate, thermodynamically consistent properties and efficient calculation methods. 
Usually, a wide range of the PVT surface is needed. For this type of calculation the 
equation -of -state method is best. The equation can be almost as accurate as the data 
from which it is obtained, and it is flexible and consistent over a wide range of the PVT 
surface. The core storage required is less than for the isochore -isotherm system, and 
the computing speed is much greater. 

It is for the user requiring both accuracy and speed that GASP is written. Some 
users requiring only accuracy can use GASP until their calculations need a final accurate 
value. The user requiring speed can use GASP to generate tables for portions of the PVT 
surface to use for interpolation. 

This section gives operating instructions for GASP designed for the user with limited 
programming experience. Table V, the operations sheet, and table VI, the units specifi- 
cation instructions, are provided for handy reference for the experienced GASP user, 
while table VII provides the user with time estimates for the various calls to GASP. 

^Available from H. M. Roder, National Bureau of Standards, Boulder, Colorado. 
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HOW GASP HANDLES INPUT AND OUTPUT 


GASP is a group of subroutines designed to be used as a subprogram with the user's 
program. Standard communication between the user's program and GASP is achieved by 
the following three FORTRAN statements, which contain the symbols representir^ the 
input and output parameters and options: 

COMMON/PROPTY/KU, DL, DV, HL, HV, etc. 

CALL SETUP (NAMGAS) 

CALL GASP (KS, KP, T, P, D, H, KR) 

See appendix A for definition of symbols and table V for operation modes. 

Four requirements must be fulfilled for a successful call to GASP: 

(1) The cards for COMMON/PROPTY/KU, DL, DV, etc. , must be included in the 
user's main program or subroutine that calls GASP. The GASP subprogram deck must 
be correctly loaded with the user's program as shown in table Vni. The variables MU, 
MUL, K, KL, and KV must be declared REAL. You cannot use K as an index for a sub- 
scripted variable; however, the user can charge the names of these variables in 
COMMON/PROPTY/. . . . 

(2) The units system for input and output must be correctly specified. The input con- 
trol KU is specified in the COMMON/PROPTY/KU, DL, DV, etc. , and must be set such 
that 1 < KU < 5. KU identifies the units system for input and output, and KU is never 
altered by GASP. Therefore, unless the user switches from one system to another, he 
need set his value for KU only once, before any calls to subroutine GASP. 

There are three specific units options described in table VI. The option KU=1 is the 
rmits system internal to the program. The other two options are commonly used in en- 
gineering calculations. If the user does not wish to use one of these options, he can 
specify any desired units system for KU=4 and KU=5, provided the conversion factors for 
this system are stored as directed in table VI. 

(3) The call to SETUP must be made before any calls to GASP and is reissued for 
each change in fluid. (All subroutines are described in appendix F. ) The variable 
NAMGAS in the call statement is a Hollerith code for the fluids: 


Fluid 

Hollerith 

code 

Fluid 

Hollerith 

code 

Parahydrogen 

H2 

Nitrogen 

N2 

Helium 

HE 

Oxygen 

02 

Methane 

CH4 

Fluorine 

F2 

Neon 

NE 

Argon 

AR 

Carbon monoxide 

CO 

Carbon dioxide 

C02 
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Since many coefficients are put into the program COMMONS by SETUP, it is recom- 
mended that all calculations for one fluid be made before changing fluids. 

(4) The controls KR, KS, and KP which tell GASP what variables are to be used as 
input and what properties are requested for output must be correctly initialized in the 
call statement for subroutine GASP. The corresponding input variables in the call state- 
ment and COMMON/PROPTY/. . . must also be correctly initialized. 

The controls KS and KR determine which of the variables T, P, D, H, or S or com- 
binations thereof are needed as thermodynamic input. The input control KP specifies 
which properties are sought as output. KR is also an output variable since it gives the 
correct region number for the variables in a specific call to GASP, as shown by the 
sketch in table V. Depending on the input for KS and KP, the other possible output var- 
iables are T, P, D, H, and all of COMMON/PROPTY/ except the control KU. 

As mentioned above, KR is both input and output and must be reset before each call 
to GASP. The input options are 

(1) KR=0 when the user wishes GASP to determine a value for KR 

7 

(2) KR=1 when the user wishes saturation conditions 

The output for KR will be 

(1) KR=1 for saturation 

(2) KR=2 for liquid 

(3) KR=3 for vapor 

The control KS specifies which variables are to be used as input for a call to sub- 
routine GASP. (In the remaining discussion on GASP input and output, the input var- 
iables are assumed to be in user’s units specified by KU. Output is always returned in 
the KU system of units. ) 

The following table shows the input and output for all KS, KR combinations: 


^Saturation or coexistence conditions exist on the PVT surface when pressure is a function of 
only temperature and the liquid and vapor states both exist at that pressure. Thus, when KR^l, 
two outputs for each property are available in COMMON/PROPTY/ and only one independent vari- 
able is required for some input options, as shown in the KS-KR input/output chart (table V). 

To find saturation properties given temperature Tl; prior to the call to GASP, set F^O, 

T=T1, and KR=1. Select the proper KP and CALL GASP(KS, KP, T, P, D, H,KR). The saturation 
pressure is returned as P. All other properties are in COMMON/PROPTY/etc, 

To find saturation properties given pressure PI: follow the above procedure except set T=0 
and P=P1. The saturation temperature is returned as T. 

If you give GASP both T and P, it uses T and does not alter P. 
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KR 

KS 


1 

2 

3 

4 

5 

Input 

D 

T and P 

T and D 


P and H 

P and S 

H 

T or 

T 


P 

P 

Output 

B 

T or P^, 

P 

n 

T,DL, and DV 

T,DL, and DV 

B 

DL and DV 





B 

D 

P 


D and r 

D and T 

B 

D 

P 

BH 

D and T 

D and T 


^See footnote 7, p. 21. 


The input control specifies which derived and transport properties are requested 
by the user. It is the sum of the individual KP options and is described in table V. This 
binary sum allows GASP to uniquely identify any combination of requests. The following 
table shows the output locations for the specific KR, KP combinations: 


Value added 

Output for KR=2 

Output for KR=1 

Name of calculated property 

to KP input 

or KR=3 

Liquid 

Vapor 


0 




None requested 

1 

H 

HL 

HV 

Enthalpy 

2 

S 

SL 

SV 

Entropy 

4 

CP 

CPL 

CPV 

Specific heat at constant pressure 


cv 

CVL 

cw 

Specific heat at constant volume 


GAMMA 

GAMMAL 

GAMMAV 

Specific -heat ratio 


C 

CL 

CVP 

Sonic velocity 

8 

MU 

MUL 

MUV 

Viscosity 

16 

K 

KL 

KV 

Thermal conductivity 


EXCESK 

EXCL 

EXCV 

Anomalous thermal conductivity 

32 

SIGMA 

SIGMA 


Surface tension of fluid as func- 
tion of temperature 


TROUBLESHOOTING FOR USER ERRORS 

After experience with GASP, we have foimd that several common errors are easily 
detected and corrected: 

(1) Failure to set 1 KU 5 will cause a ’’division by 0.0” and/or no valid an- 
swers. Set KU to its proper value. 

(2) Failime to set 1 < KS < 5 will most likely cause a halt to the program because 
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of an execution error. The branching on KS in subroutine GASP is a computed ”GO 
TO. ” Simply set KS to its proper value. 

(3) Failirre to set KP will return enthalpy if KP is odd and no derived properties if 
KP is even. 

(4) If a wrong value is entered for KR, it is treated as KR=0. If a user enters KR=1 
when he does not want sat\iration properties , he will get them anyway for T < T^ and 
otherwise will get a wrong answer. 

(5) If any T, P, D, H, or S is entered incorrectly, that value will be used and the 
answer will be wrong. 

(6) If the COMMON/PROPTY/ is duplicated incorrectly, there are a variety of pos- 
sible errors, almost all serious. 

(7) If the call to SETUP has an illegal fluid request (not one of 10 fluids, keypvmch 
error, etc.), the execution stops after an error message. 

Other small problems may be encountered if GASP is modified for different com- 
pilers or computers. The FORTRAN IV coding in GASP is machine independent except 
for a few Hollerith format statements which can be easily changed. The reader who 
needs more detailed information should read the appendixes. 


ADDITIONAL INFORMATION 

The approximate core storage for the complete GASP program is (23306)g = (9926) 
locations. 

The following problems have previously been encountered when converting to non- 
IBM machines or to different FORTRAN IV - FORTRAN V compilers; 

(1) Users of the IBM 360-67 should run in double precision by inserting IMPLICIT 
REALMS (A-H, O-Z) and REALMS MU, MUL, MUV, K, KL, KV in subprogram GASP 
and IMPLICIT REAL*8 (A-H, O-Z) in all other subroutines. COMMON/P ROPTY/KU, 
KZ, DL, DV, etc., should be changed for proper alinement. 

(2) Data statements are found in subroutines BLOCK DATA, THERM, VISC, and 
SURF. Many compilers differ in formatting data statements. 

(3) The multiple -entry routine CHECK (TCHECK, PCHECK, DCHECK) has an entry 
point, DCHECK, whose input vector (KU, D) does not correspond in kind and number with 
the other entry points (KU, KR, T) or (KU, KR, P). To oim knowledge, this has caused 
a problem on only one compiler, a FORTRAN IV for a CDC 3800. It was easily remedied 
by an equivalence statement. 

Q 

We adapted the code to fit all the compilers and machines tried so far with the pre- 
ceding exceptions. 

®The machines tried so far are the UNIVAC 1108, CDC 3600, CDC 3800, IBM 360/67, and 
IBM 7094-7044 DC. 
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CONCLUDING REMAIUCS 


A FORTRAN IV subprogram called GASP has been developed to calculate the ther- 
modynamic and transport properties of 10 fluids: parahydrogen, helium, neon, methane, 
nitrogen, carbon monoxide, oxygen, fluorine, argon, and carbon dioxide . 

The basic concept of both GASP and this report is to provide the user with reliable 
fluid properties and to permit periodic updating of the program. As new data and new 
techniques for evaluating data become available, reevaluation of existing computational 
techniques (addition, modification, and/or deletion of subroutines) is an essential part of 
a viable properties program. 

No computer code for fluid properties can remain viable without incorporating im- 
proved data as they become available. It is strongly recommended that NASA continue 
its support of the NASA-NBS thermophysical properties program, continue the effort 
initiated by GASP to provide the engineer with a means to calculate thermodynamic and 
transport properties with accuracy and speed, combine these programs in a continuity 
effort to update the fluids and the computational techniques, and provide distribution of 
the programs and their results. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, June 27, 1974, 

502-24. 
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APPENDIX A 


SYMBOLS 


Mathematical FORTRAN Description 

9 

symbol symbol 




coefficients of terms in eqs. (Bl) and (B2) 



coefficients of terms in eqs. (Bl) and (B2) 

Cj.Dj 


coefficients of terms in eq. (BIO) 

c 

c 

sonic velocity, cm/sec 


CL 

sonic velocity of saturated liquid, cm/sec 


CVP 

sonic velocity of saturated gas, cm/sec 

S 

CP 

specific heat at constant pressure^ J/(g)(K) 

S,0 

CPOCOR 

specific heat at ’’zero" pressure, J/(g)(K) 
specific -heat units correction factor 


CPL 

specific heat of saturated liquid at constant pressure, 
J/(g)(K) 


CPV 

specific heat of saturated vapor at constant pressure, 
J/(g)(K) 

Cy 

CV 

specific heat at constant volume, J/(g)(K) 


CVL 

specific heat of saturated liquid at constant volume, J/(g)(K) 


CW 

specific heat of saturated vapor at constant volume, J/(g)(K) 


EXCL 

reacting conductivity of saturated liquid, W/(cm)(K) 


EXCV 

reacting conductivity of saturated vapor, W/(cm)(K) 

H 

H 

enthalpy, J/g 

Ho 

HL 

reference enthalpy, J/g 
enthalpy of saturated liquid, J/g 


HV 

enthalpy of saturated vapor, J/g 

h-7 


set of constants for equation of vapor pressure curve 


^Symbols used in the individual subroutines are identified in the work statement of that sub- 
routine (see appendix F). 
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Mathematical FORTRAN 
symbol symbol 


Description 


k 

k* 


M 


m 


1-5 


"l-24 

P 

Pc 

P 

max 

P . 
min 


P 

^sat 

(0P/0T)p 


(dP/dp)rj, 


K 

KCP 

KL 

KP 

KR 

KS 

KU 

KV 


NAMGAS 

P 

PC 


PS 

PSS 

PTV 


thermal conductivity, W/(cm)(K) 
thermal conductivity of dilute gas, W/(cm)(K) 
region delimiter used in numerical calculation of 
thermal conductivity of saturated liquid, W/(cm)(K) 
thermodynamic and transport properties specification 
thermodynamic region specification 
state relation specification 
units specification 

thermal conductivity of satvirated vapor, W/(cm)(K) 
molecular weight, g/g-mole 

set of constants for equation of specific heat at "zero” 
pressure 

Hollerith code used to specify fluid 
set of constants for equation of state 
pressure, MPa 

pressure at thermodynamic critical point 

upper pressure limit, MPa 

lower pressure limit, MPa 

pressure used internal to program, MPa 

saturation pressure used internal to program, MPa 

saturation pressure (eq. (3)), MPa 

partial derivative of pressure at constant volume, 
MPa/K 


PTVL partial derivative of pressure at constant volume of 
saturated liquid, MPa/K 

PTW partial derivative of pressure at constant volume of 
saturated vapor , MPa/K 

PDT partial derivative of pressure at constant temperature, J/g 
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Mathematical FORTRAN 


Description 


symbol 


T 


Tc 

"^max 

Tmin 


T 

T 

U 

V 


t 

0 


V’ 



e/k 

X 


symbol 


PDTL 

PDTV 

R 

S 

SL 

sv 

T 

TC 


TS 

TSS 


GAMMA 

GAMMAL 

GAMMAV 

EPSK 


partial derivative of pressure at constant temperature of 
saturated liquid, J/g 

partial derivative of pressure at constant temperature of 
saturated vapor, J/g 

gas constant, J/(g)(K) 

entropy, J/(g)(K) 

reference entropy, J/(g)(K) 

entropy of saturated liquid, J/(g)(K) 

entropy of saturated vapor, J/(g)(K) 

temperature, K 

temperatiire at thermodynamic critical point, K 
upper temperature limit, K 
lower temperature limit, K 
temperatiire used internal to program, K 
saturation temperature computed by function TSS, K 
triple -point temperature, K 
reference temperature, K 
internal energy, H - (P/p), J/g 

Q 

specific volume, cm /g 

volume of satiuated liquid, eq. (3) 

volume of saturated vapor, eq. (3) 

compressibility factor, P/pRT 

compressibility factor at critical point, eq. (10) 

ratio of specific heats, Cp/C.^^ 

ratio of specific heats of saturated liquid 

ratio of specific heats of saturated vapor 

potential parameter, used to reduce temperature, K 

thermal conductivity parameter, T^^^/P^'^^ = ^M, 

cal/(cm)(sec)(K) 
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Mathematical 

FORTRAN 

Description 

symbol 

symbol 


X 

r 

EXCESK 

reacting conductivity, W/(cm)(K) 

M 

MU 

dynamic viscosity, g/(cm)(sec) 

♦ 


dynamic viscosity of dilute gas, g/(cm)(sec) 


MUL 

dynamic viscosity of saturated liquid, g/(cm)(sec) 


MUV 

dynamic viscosity of saturated vapor, g/(cm)(sec) 



viscosity parameter, where the units 

are in K, P^ in atm, and viscosity in cP 

P 

D 

3 

density, g/cm 


DL 

3 

density of saturated liquid, g/ cm 


DS 

3 

density used internal to program, g/cm 


DSL 

density of saturated liquid, used internal to program, g/cm 

Pc 

RHOC 

3 

density at thermodynamic critical point, g/cm 

^switch 


density where calculation of changes from numeric to 

analytic 

Pt 


3 

triple-point density, g/cm 


DV 

3 

density of satxirated vapor, g/cm 

a 

SIGMA 

siirface tension, dyne/cm 



hard-sphere collision diameter, A (or 10~^^ m) 



Leonard -Jones collision integral for diffusion 

Subscripts : 


Lennard-Jones collision integral for viscosity 

c 


critical point 

exp 


experimental 

R 


reduced 

t 


triple point 

total 


total 


28 



APPENDIX B 


EQUATIONS USED IN GASP 

EQUATION OF STATE 

The mcxlified virial equation of state 

N M 2 

P = P(p,T) = ^ A.(T)p' + 5] B.(T)p2j+l 
i=l j=l 

is used to calculate all PVT and derived properties returned by GASP. The terms A.(T) 

and B.(T) are polynomials in T and T"^. If the fluid is helium, T„ = T and o' = 1* 

10 ^ ^ 
otherwise, T 2 = 1 and a = 0 (Mann's equation, ref. 11). The values of N and M 

depend on the nature of the data and the curve-fittir^ technique. Herein, we use N = 6 

and M = 2. The coefficients A^ and Bj become 


Aj(T) = RT 


Ha 

A„(T) =n,T + n, + J. + _i+_®+_il 


T ^2 .J.3 .p4 


A,(T) = + ngT + + _i + _?i 


T ^2 


A^(T) - OgT + n 


10 


Ag(T) - rijjT + nj2 + 


"24 


Ag(T) = n 


13 


"14 


Bj(T) = . 


T ^2 


"17 


B2(T)=- 


T ^2 


(B2) 


10 


For use of T 2 and 


a, see eq. (B12) and subsequent equations. 
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and 


c ="20 

The coefficients n^ to ngg represent Bender’s original equation, while n 2 j to ng^ 
have been added to accommodate carbon monoxide, neon, and helium. 

While the fluids fit using Bender’s routine (appendix C) do not require a vapor pres- 
sure curve, carbon monoxide, neon, and helium do. We decided to use a vapor pressure 
curve for each fluid. As an immediate consequence, the critical points and slope of the 
vapor pressvu-e loci and those of the PVT surface fit did not match. As a result the sat- 
vmation properties are forced to match, and returned derived properties are not smooth 
for temperatures less than but within 0. 1 to 0. 2 K of the critical point. 


DERIVATIVES AND INTEGRALS OF GASP 

In order to obtain thermodynamic functions, with the exception of a direct pressure 
calculation, several derivatives and integrals must be evaluated. The required deriva- 
tives of equation (Bl) are 


(dP/dp)rj. 

OP/0T)^ 

(a^P/aT^)^ 

The required integrals are 



(B3) 

(B4) 

(B5) 

(B6) 

(B7) 

(B8) 
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The derivative (0P/0p)rr, (eq. (B3)) is straightforward. From equation (Bl), 


6 2 

= V iA.(T)p^"^ + V B.(T) L] + 1 - e 

Vp/t Tit \ ^2 / 


(B9) 


To calculate the derivatives (0P/0T)^ and ^0^P/0T^j|p, it is more convenient to re- 
arrange the virial equation: 


where 


P = X) Ci(p)T^-' + D.(p)e ^"^2 T-(j+l) 
i-1 j=l 


^ 1 “ ^22^ 

2 3 4 5 

Cg = Rp + Hjp + ngp + ngp + n^jp 

„ 2 3 4 5 „ 6 

C3 - ngp + Tirjp + '^jqP + ^12^ ^ *^ 13^ 

2 3 5 

C4 = ngp + ngp + ng^p 


C5 - n^p^ + HggP^ 


Cg = 

Crj = ngjp2 

°1 " ^^(”l4 "l7^^) 

D3 = p^(njg + njgp2^ 




(BIO) 


(BID 
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(B12) 


For fluids other than helium, o; = 0 and T„ = 1 

^ 12 2 1 

In order to determine the specific heats, the P/9T is required, although it 

is never used in that form. After differentiating equation (B12) to give (B5), the integral 
(eq. (B6)) becomes 
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E j(T) = 


T o>2 ^3 


2 j\q GiinQ 

E2(T) = 2d22T + -1 + 

ip2 rp3 


Eg(T) = 0 


E4(T) = 


2n 


24 


F,(T) 


12n,c 20n,„ 

6n + 15^ 16 

T ^2 


I (B14) 



In order to facilitate evaluating equation (B7), rearrange the virial equation to the 
form 


P =pT 


~Cp2/T„ 

R + ) A.{T)P +yB,(T)e_e ^ 

- i=2 T T 


= pT[n] 


(B15) 


After differentiation of equation (B15) with respect to T and substitution into equa- 
tion (B7), the integral becomes 
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Equation (B15) is used to evaluate equation (B8) and the integral becomes 





+ a 




k=l 


(B17) 


Equations (Bl) to (B17) constitute the basic relations in GASP; however, one also 
needs the constants of integration (i.e. , Hq, Sq as well as Cp^Q (or q)) to deter- 
mine the derived properties and the saturation pressures needed to isolate the two -phase 
region. The sources for these constants are found in table HI. 
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CONSTANTS OF INTEGRATION 


The equation for the saturation pressure is 


log 


10 ^sat 




(B18) 


The values jj to are listed for each fluid in table K. 

The specific heat for the dilute gas Cp q is a function of temperature only (except 
for hydrogen, see appendix K): ’ 


5 

S,0 = E“iT‘‘' (B19) 

i=l 

with mj listed in table DC for each fluid. The values of Hq and S are also listed in 
table DC. 

With these constants and equations (Bl) to (B19), the following general forms for de- 
rived properties can be evaluated: 

Enthalpy: 


Entropy: 



Specific heat at constant volume: 


(B20) 


(B21) 
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Specific heat at constant pressure: 


C 


P 



An alternate method for used at high density is 



(B23) 


(B24) 


C„ = (B25) 

P AT 


Sonic velocity: 



(B26) 


With (0P/3T) , (0P/0p),p, P, p, T, and the Bridgeman Tables (appendix E), the user can 
calculate any other thermodynamic relation of his choice. 


TRANSPORT PROPERTIES 

In general, the thermal conductivity, viscosity, and sxirface tension are calculated by 
the techniques outlined in the main text under Calculation of Transport Properties. Here 
we specify these calculations in greater detail. 


Viscosity 

For flvuds other than hydrogen, the dilute -gas viscosity is given by 

p* = 0.26693X10"'^ — (B27) 
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and the excess viscosity function is specified by 

^ [o. 00933 24 - 0. 04 07 5 8 + 0. 058533 p| + 0. 023364 pj^ + 0. 1023ol^ - IXIO 

p - p = L 

100 I 


(B28) 


If the flviid is fluorine, a small correction factor is used 


(p - p*) = (p - p*) Tl -Isin (2.3808 In p„) 

^2 L 4 “J 


(B29) 


The viscosity then becomes 


p = (p - p ) + p 


(B30) 


If the fluid is hydrogen, a two-part fit is used which for the most part is from H. M. 
Roder ofNBS, Boulder, Colorado: 


Pjj = 8.5558 


/ ,j,3/2 Wt + 650.39\ 
\T + 19. 55/\T + 1175.9/ 


T < 100 K 


p^ = 1.799 T>100K 


Let 


R = -58.75 


\0.07/ 


where R > -80 


and 


A = exp [ 5 . 7694 + In p + 65p^^^ - 6x10“'^ 

(-^f - 

\0.07/ \0.07/ 


B - 10 + 7.2 


The viscosity for hydrogen becomes 




- 17.63e 


X 10' 


(B31) 

(B32) 


(B33) 


(B34) 

(B35) 


(B36) 
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At elevated temperatures, the value of predicted from equation (B32) dominates, 

"2 

and it becomes unnecessary to correct for density effects (i. e. , one can assume that 
A « 0). 

While it is known that the excess viscosity of cryogens is temperature dependent 
(refs. 47 to 55), it is not yet known how to represent this effect for several fluids by 
using corresponding-states principles. Gibbon and Kuebler (ref. 56) present a pseudo- 
corresponding-states analogy to predict the viscosities of argon, nitrogen (limited), 
neon, and helium. Haynes (ref. 55) presents a "virial*' equation for argon viscosity. 
However, attempts to extend these equations to other fluids were met with limited suc- 
cess. Further, as will be shown later, the data of various investigators differ substan- 
tially for the same fluid region. These data appear to be dependent on the apparatus, 
the measurement technique, and the fluid region where the measurements are made 
(refs. 57 to 59). (Recall that thermal conductivity measurements suffer the same prob- 
lems; so perhaps do all transport properties. ) 

It is difficult to make generalizations, however, the authors have found some trends. 
In figure 22 we plot the viscosity data of Diller (ref. 50) as a function of reduced density. 
Similar plots were made for nitrogen and argon by using the data of Zhdanova (refs. 60 
and 61). See also reference 47. 

(1) The isotherms are nearly linear and intersect the saturation locus for TR < 1; 
the extended isotherms appear to "focus" at pp = 2. For Tr > 1 the isotherms tend 
to "focus" near pj^ = 1. 

(2) The saturation locus appears to be continuous; however, at Tr 1, some dis- 
continuities in the surface are noticeable. 

(3) Viscosity in the region ^ 2 can be described by 

p = 0. 63(pj^ - 2)tanjm(Tj^)j 



AM = g.61g<10P-5) 

However, the formulation is limited to this region; subsequent comparisons found equa- 
tion (B37) better, but not significantly better, than assuming that the temperature de- 
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pendence for 1. 5 ^ Pj^ < 2. 8 may be expressed as an additional density-dependent term 
for each fluid: 


M = 




Eg. (B30) 



(B38) 


where A = B = 0 for pj^ < 1. 5 and (pj^ - 1. 5) — 1. 3 for pj^ > 2. 8. The following 
table lists the values of A and B used in GASP: 


Fluid 

B 

B 


Fluid 

B 

B 

Methane 

-0. 06 

0. 07 


Neon 


0. 2 

Nitrogen 

0 

. 2 


Carbon monoxide 

. 1 

0 

Oxygen 

. 04 

0 


Helium^ 

0 

0 

Argon 

0 

. 2 


Fluorine 

0 

0 

Carbon dioxide 

0 

0 


Hydrogen^ 

0 

0 


^Special equation. 


Several sets of viscosity data are compared with calculated values in figures 23 
to 28. The ordinate is |(Mgxp " ^calc^^^exp] ^ abscissa is reduced density. 

Nitrogen. - The data of references 49, 53, and 54 are compared in figure 23. Note 
the deviations in the data of these references near 1. 5 < Pj^ < 2. Generally, the devia- 
tions are ±20 percent; most are less than ±10 percent. 

Oxygen . - The data of references 52 to 54 are compared in figure 24. Again note 
the deviations in the data sets of references 52 and 54 near 1. 5 < pj^ <2. If one 
ignores these latter data, the deviations are -20 to ±10 percent. 

Argon. - The data of references 51, 53, and 55 are compared in figure 25. The 
data of reference 55 are extensive and, in general, the deviations are ±15 percent, with 
most deviations within ±5 percent. 

Neon, carbon monoxide, and methane . - These data sets are limited to saturation 
data. The neon data (refs. 62 and 63) deviate by ±5 percent over the domain indicated in 
figure 26. The carbon monoxide data (ref. 64) deviate by ±10 percent over a limited do- 
main (fig. 27). The methane data (ref. 59) deviate by -8 to ±4 percent (fig. 28). 

While these results do not necessarily apply to the dense fluid regions, in the ab- 
sence of data we assume that they are applicable. The extensive data of Diller (ref. 50) 
were not compared because GASP uses the equations developed by Diller. Also, helium 
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data were not compared because GASP uses the equations of McCarty. Recall that the 
helium equation in GASP is valid for T > 6 K and the calculations of reference 17; 
otherwise, the computer program HELP^ should be used. 


Thermal Conductivity 


The quantum fluids hydrogen and helium are treated separately, as is fluid fluorine. 
The excess functions k - k* for parahydrogen and fluorine are nearly functions of den- 
sity alone; however, for helium the excess thermal conductivity is a function of temper- 
ature and density. The dilute -gas thermal conductivity k for parahydrogen does not 

reduce as do other fluids to form a universal curve. Fluorine has been addressed by 

12 ^ 
Hanley and his fit is used herein. Thus, for fluids other than hydrogen, helium, and 

fluorine, the dilute -gas thermal conductivity becomes 


k* 




(B39) 


where the coefficients b^^ and k^ are given in table X. Table X also lists a lower 

^ * T R 

boimd LB on the excess function k - k . If the density is less than 10 , 

k - k* = pj^xlO"*^ for logjo Pr - (B40) 

(e vk) 

k - k = for logjQ pp > LB (B41) 

r/5^ 


where the coefficients a^, Z^, and \ are given in table X(b). For these coefficients, 

k = [(k -k*) + k*] x4. 184 (B42) 


^^Private communication with R. D. McCarty of National Bureau of Standards, Boulder, 
Colorado. 

12 

Private communication with H. J. M, Hanley of National Bureau of Standards, Boulder, 
Colorado. 
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Fluorine . - First, compute the dilute -gas thermal conductivity 


1.77R+ 6 - C 




* V, 0 " „ 
( 1 , 1 ) ^ 


5_n<2,2) 

2 


n 


( 1 , 1 ) 




Then add the excess function 


2 + 0. 02 T®' ^2333 


(k -k*) +k*^ 


Parahydrogen . - From an interpolation routine provided by Roder, 

[(Interpolation of tabulated values) - (Dependent on T alone) ] 


Let 


B = 39.6 - 2 


265 -[X] 

ao/ 


2 1 1/2 


Then 


= »■ “^2 {ciBp * [c2 + (^)] p j 


T < 250 K 


where 


Cj = 0.9885311 
= 32. 0887 
Cg = -910. 141 

For temperatures between 150 and 250 K, the thermal conductivity is given by 

k = (k - k*)j,^ X 4. 184 + 3. 383X10'^ x T°- '^2872 T > 250 K 


(B43) 


(B44) 


(B45) 


(B46) 


(B47) 


(B48) 
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and 


for 150 T < 250 K 


(B49) 


k - x(k)gq (B48) (B47) 


where 


X = 0. 01(T - 150 K) (B50) 

Above 2000 K, departures due to dissociation begin to become noticeable. 

Helium. - From an interpolation routine provided by Roder, compute k* as a 
function of CONZ(T): 


♦ ^ CONZ(T) 

1000 


(B51) 


Let 




(B52) 


Then the excess function becomes 


lo'’ 


(B53) 


and finally, the thermal conductivity is given by 


= (k->c-) 


He ^He 


(B54) 


Thermal Conductivity Anomaly 

The prediction of the anomalous thermal conductivity of simple substances has been 
investigated by Sengers (refs. 29, 30, and 32), Brokaw (ref. 25), and Hendricks and 
Baron (ref. 31). While each technique reproduces the COg data of references 29, 30, 
and 32 with good agreement, the simplified technique of reference 32 is used herein. 
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Define the parametric groupings: 


x^ = 


1 - 

^ ■ Pr\ 


y = (k - Xp) |/^ 

3 . 05 X 10 "^ I 1 - Tj^l 


where 


Xp = f(p) + k* 

and Xp is the frozen or nonanomalous part. 

Within the region 0. 4 s < 1. 6, the anomalous thermal conductivity can be 
puted by using the following formulas: 

For < 0. 4: 


X = 
r 


k - X„ = 


3 . 05 X 10 ’^ ^ 


For 0. 4 X' 


/3 


3: 


n-0.6 


y = 


1 + 


(xP) 


0,9 

1 / 0.35 


For x^ > 3: 


Xj, - k - Xp - 


3 . 05 X 10 “^ 



0 . 6 


(B55) 


(B56) 


(B57) 

com- 


(B58) 


(B59) 


(B60) 
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Surface Tension 


The surface tension of fluids other than hydrogen and helium are given as 


11/9 / 0.432 

V"c 

2/3 

where Z is the compressibility at the initial point and is in (atmospheres) 
and C^=FIXn' is given by the following table: 


Fluid 

C 

a 

Fluid 


Hydrogen 

1 

Carbon monoxide 

II 

Helium 

2.27 

Oxygen 


Neon 

1. 1 

Fluorine 

n 

Methane 

1.015 

Argon 

H| 

Nitrogen 

1 

Carbon dioxide 



For hydrogen and helium, a slightly different slope is noted and 
where 

= 5. 369 for hydrogen 
C = 5. 308 for helium 



951J Ty^p?/^ 


(B61) 


(B62) 


44 















APPENDIX C 


BENDER CURVE FIT - SUMMARY 

It is customary today to find the coefficients for an equation of state from the meas- 
ured PVT values with the well-known method of least squares by using a digital com- 
puter. The method as applied to the Bender equation for methane is explained in refer- 
ence 3 (see also refs. 4 and 5). The formulation is summarized here for the interested 
user. 

The least -squares sum S which must be made a minimum is defined as the summa- 
tion over the square of the residuals. In which case the residual r is the difference be- 
tween the calculated pressure P of the state equation and the measured pressure P_.^. 

N N 

S = E “P,n4,„ = E “P,n - Pexp. 

n=l n-1 

Individual values can be distinctly weighted with the factor cUp 

The eqiiation can then be expanded to include any number of constraints. For 
Bender’s equation the following constraints are used for the two -phase boundary 
equilibrium : 


P’ = P" = P^^ (C2) 

g'(T,P3ai)=g"(T,P^at' 

The specific free enthalpy g' is of the liquid and g" is of the vapor. The expanded 
sum S is now 

N N J 

S = E “P,„ [’’(''n- V - ”exp,n]' " E “dj - P(vj',Tj) 

n=l j=l - 3=1 

(C4) 

Then 




g.” - g.’ 


rv'.' 

- / ^ P(v.,T.)dv + 

y v' J 

i 




(C5) 
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In addition, the critical constraints used are 




(C6) 



T 

P 



as determined by the saturation data 
c 


Two additional constraints 



(C7) 


(C8) 


(C9) 


(CIO) 


(Cll) 


are sometimes needed to obtain a good fit in the critical region. These constraints are 
referred to as the fifth -order attachment, while equations (C7) and (C8) give the usual 
third -order attachment. 

The coefficient ngQ in equation (B2) is not determined in the fit but must be varied 
systematically until an acceptable set of coefficients is determined. The data needed for 
this method then are 

(1) PVT data over the pressure and temperatvtre range of interest 

(2) Smoothed PVT data along the saturation boundary 

(3) Estimates of the critical parameters and (Initial estimates can be found 

from the saturation loci. ) 

2 

(4) Value of U 2 q in equation (B2) (Initial estimate satisfies U 2 q 1. 

The items (3) and (4) along with the weight factors can be varied to obtain the best set of 
coefficients for equation (B2). 

Techniques to actually solve the system of equations are in the literatirre; see, for 
example, Bust and McCarty (ref. 45) and Morsy (ref. 65). 
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APPENDIX D 


STATE EQUATION OF STEWART, JACOBSEN, AND MEYERS 


Stewart, along with Jacobsen and Meyers (ref. 44), extended the work of Coleman 
and Stewart (ref. 37) to nitrogen and oxygen. As Bender's analysis and program was 
made available to Stewart and his coworkers, they utilized Bender's technique to develop 
another state equation. The state equation is essentially equation (Bl) where N = 9 and 
M = 6, with a term. The explicit forms for A.(T) and Bj^(T) become 


Aj(T) = RT 


A„(T) = n.T + n„ +— +_±+e.(T) 
^ ^ T 2 ^ 


Uq 

A„(T) = n.T + n„ + 

^ ^ T 


A4(T) = UjqT + n^j + 


n 


12 


Ajff) = 

Aj(T) = 

A,(T) = 

Aj(T) = 

Agm^ 


13 


°14 ^ "l5 


n 


J6 

T 


"l7 ^ "l8 
T ^2 


‘19 




(Dl) 
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where 


B-(T) = — + — 
^ ^2 ^3 


B2(T) = 


n, 


22 


n, 


23 


B,(T)=:i24^::25 

^2 ^3 


B 4 ( T )=!!26 

^ rj,2 rj,4: 


B,(T).ll 28 ^^ 

® rj,2 ^3 


^ ^2 ^3 ^4 


Ej(T) = ng Vt 

The exponential term of equation (Bl) becomes 


e 



The explicit forms for C-(p) and Dj(p) become 


(D2) 


(D3) 


(D4) 
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Cj(p) = 0 = Cg(p) = Crjip) 

C2(p) = Rp + Hjp^ + Hgp^ + n^gp"^ 


2 3 4 5 

2 3 4 

C4(p) = n^p + Hgp +nj2p 

C5(p) = iigp^ + ngp^ 




> (D5) 


6 7 8 

+ iij4p +njgp +nj^p 


+ n 


I 5 P 


8 9 

+ njgp + njgp 


J 


F j(p) = 


(D6) 


Rl(p) - ("20 "22^^ ^ "26^^ ”28^^ ^ 


D^ip) = 


21 


+ n 


25P 


Dg(p) - ("23^"^ 


+ n 


21P 


8 10\ 3 

+ ”29^ +H3 iP jp 


^ n 10\ 3 

+ I132P jp 


(D7) 


With these coefficients now defined, equations (B9), (BIO), (B12), (B13), (B16), and 

10 ^ 

(B17) may be written, where N = 9 and M = 6 as follows: 


P = P 


Eq.(B10) 


+ Vt 


(D8) 


/I 


(S)/Q 


T^/^P 

p^ \0T^ 


PJ 


r 


dp = 



Eq. (B12) 


Z_ 

p^ laT^ 


2\/T 


dpi 


Eq. (B13) 


4p^Vr 


(D9) 


(DIO) 


1 o 

When referring to these equations, we assume the reader will alter the summation indices 
appropriately for N = 9, M = 6 rather than N = 6, M = 2, and substitute the proper coefficients 
as defined by eqs. (Dl) to (D7). Under these conditions, eq. (B9) is unchanged. 
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/t- T./3P\ldpJ f 

J k U 


2 2 
P P 


(s).' 


dp 


Eq. (B16) 


FjT 

2p^ VT 


(Dll) 


/ 


P J_(^\ 
P~n^\ 


dTJ 

'D 


dp = 


f [? - — \ 

J L'’ 


dp 


Eq. (B17) 


2p^Vr 


(D12) 


With these alterations, and subsequent alteration of SETUP and BLOCK, GASP will re- 
turn results as outlined in the report if GASP is operating in double precision on a ma- 
chine with lO"*"®® capability. 
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APPENDIX E 


THERMODYNAMIC RELATIONS AND DERIVATIVES 


The symbols Cp, C^, H, P, R, S, T, and p have the same meaning as defined 
elsewhere in this report. The other symbols used exclusively in this appendix are de- 
fined as follows: 


A = E - TS 
E 

F = H - TS 


K 

V 


Helmholtz free energy or work content 
internal energy 

Gibbs free energy or free energy 
equilibrium constant 
specific volume 


To illustrate the facility of the partial derivatives, Roder and Weber (ref. 66) give 
five which are useful to engineers: 


Specific heat input: 



Energy derivative: 



Isothermal bulk modulus: 
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Volume expansivity; 



The background material necessary to derive these and other parameters as the 
Joule-Thomson coefficient 


M = 




can be found in most thermodynamic texts. 

GASP provides the partial derivatives (3P/0p)rp and (9P/9T)^. With the aid of the 
following thermodynamic derivatives and the Bridgeman Tables, any thermodynamic 
parameter can be found. The following thermodynamic tables were taken from refer- 
ence 67. 

Differential energy formulas: 


dE = T dS - P dV 
dH = T dS + V dP 


dA = - S dT - P dV 


dF = - S dT + V dP 


Maxwell relations: 
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\9V/g V9S/y 

V9P/g Vas Jp 


Energy-function derivatives: 
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Effect of P or V on H or E: 



Temperature effect on AF/T = - R In K: 



Partial molal quantities, where Y is any extensive quantity: 


Yl - I — 


P, T, n2, ng. 


Y = niVi + 


lyi + ngyg + 


X 




+ 


. =0 


3^Y 

0n. / 3n. 3n. 

V J/ 1 J 
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The so-called Bridgeman Tables are summarized as follows: 
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APPENDIX F 


DESCRIPTION OF SUBROUTINES IN GASP 


This appendix includes a discussion of the input and output and important features of 
the major subroutines in GASP, The equations are presented in appendix B. The 
FORTRAN IV variables mentioned correspond to the program listing in appendix H (see 
also symbol list, appendix A). 


GENERAL MATHEMATICAL ROUTINES 


Function SOLVE (XI, F, DF) 


Function SOLVE performs a Newton -Raphson iteration given the initial estimate XI, 
the function F, and the derivative function DF. The convergence is determined when 


Xn -%-1 


X 


N 


<TOL 


The value of TOL is 1. E-5 for iterations 1 to 40, 1. E-4 for 41 to 60, 1. E-3 for 61 to 80, 
and l.E-2 for 81 to 100. In all cases studied, the convergence was usually obtained in 
fewer than 40 iterations. For the exceptions, usually in the near -critical region of the 
PVT surface, the values returned with the increased tolerance are the best obtainable us- 
ing equation (B3). The maximum number of iterations is 100, and an appropriate mes- 
sage is written if this number is reached. 


Subroutines ROOT(XO, X2, FOFX, FUNC, XI) 
and ROOTX(XO, X2, FOFX, FUNC, XI) 

Subroutines ROOT and ROOTX are identical except for name. The duplication is 
necessary for the double iterations in the solutions for temperature and density given 
pressure and enthalpy (KS=4) or pressure and entropy (KS=5) as input (see also table V). 

The solution method is a modified, half -interval, search technique for a monotonic 
function, FUNC, with a root between XO and X2 such that FUNC (XI) = FOFX, where XI 
is the answer returned. The number of iterations does not exceed 100, and the tolerance 
is varied in the same manner as in function SOLVE. In addition, both the root and the 
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function value FUNC(Xl) must meet a tolerance. While the tolerance on XI is TOL, the 
tolerance on FUNC(Xl) is 10. *TOL. Error messages are written when the iterations 
reach 100 or when there is no solution in the interval XO to X2. 


Subroutine SPLINA(X, Y, NX, T, NT, YINT, KFD, KERROR) 


Subroutine SPLINA performs a spline curve fit for interpolation in the numerical 
calculation for Cp (eq. (B25)) and (eq. (B24)) in the dense liquid region. 


Subroutine POLY(X, COEF) 

Subroutine POLY evaluates the polynomial at X for the transport equations given in 
appendix B, where F(X) is described by the coefficient array COEF. 


Subroutine SETUP(NAMGAS) 

Subroutine SETUP uses NAMGAS, a two- or three-letter Hollerith code tabulated in 
this section, to select the coefficients for a particular fluid and overlay them into the 
COMMON blocks needed by GASP. The coefficients include 

(1) Equation -of -state coefficients 

(2) Saturated -vapor -law coefficients 

(3) Specific-heat -at -zero-pressure coefficients 

(4) Transport coefficients 

(a) Viscosity, /j - p* and p* 

(b) Thermal conductivity, k - k* and k* 

(c) Force constants 

(d) Surface tension, ct 

(5) Region delimiters on P, T, p, H, and S 


Table H 
Table DC 
Table DC 
Table X 


Table DC 


Fluid 

Hollerith code 

Fluid 

Hollerith code 

Helium 

HE 

Nitrogen 

N2 

Methane 

CH4 

Oxygen 

02 

Neon 

NE 

Argon 

AR 

Carbon monoxide 

CO 

Carbon dioxide 

C02 

Fluorine 

F2 

Hydrogen 

H2 
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More specifically, subroutine SETUP(NAMGAS) transfers the proper coefficients from 
BLOCK as follows: 

COF(55, element number)^'^ is stored as 


(1, element number) 

R 

gas constant, (MPa)(cm /g 
J/(g-K) 

-K); 

(2, element number) 

CPI to CP 25 

equation-of -state coefficients 

(26, element number) 

CPSl to CPS7 

saturation -curve coefficients 

(33, element number) 

TO 

reference temperature, Tq 

(34, element number) 

CCPOl to CCP05 

specific -heat -at-zero-pressure 
coefficients 

(39, element number) 

SOTO 

reference entropy at Tq, Sq 

(40, element number) 

HOTO 

reference enthalpy at Tq, 

Ho 

(41, element number) 

CPOCOR 

units correction for Cp q 




’ 'N 

Used to 

(42, element number) 

DCHl 

3 

minimum density, g/ cm 

tag p and 
as range 

(43, element number) 

DCH2 

3 

maximum density, g/cm 

for half- 
interval 



-> 

search 

(44, element number) 

PCHl 

triple-point pressure, P^, 

MPa 

(45, element number) 

PCH2 

pressure at thermodynamic critical 
point, Pp, MPa 

(46, element number) 

PCH3 

upper pressure limit, Pj^g^i MPa 

(47, element number) 

TCHl 

triple -point temperature. 

T(, K 

(48, element number) 

TCH2 

temperature at thermodynamic criti- 
cal point, Tp, K 

(49, element number) 

TCH3 

upper temperature limit, 

T , K 

max’ 

(50, element number) 

DST 

estimate of liquid density for SOLVE, 
g/cm^ 

(51, element number) 

TST 

estimate of gas temperature for 


SOLVE, K 


I'^Element number refers to the fluid, e. g. , (1, 3) is R for oxygen. 
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(52, element number) HSCHl 

(53, element number) HSCH2 

DIST(element number) 
EPSOK(element number) 


0M20Ml(element number) 

WTMOL 

TCCOF(15, element number) is stored as 


(1, element number) 

XLAMB 

(2, element number) 

ZC5 J 

(3, element number) 

TCR 

(4, element number) 

RHOCR 

(5, element number) 

CKMKST 

(14, element number) 

KODE 

(15, element number) 

TCSTAR 

AKSTCO(18, KODE) 



ZETA 

FF 

DTRIPL 

SWT 

KSWT 


minimum enthalpy, J/g 

maximum enthalpy, J/g 

interm ole cular distance 

potential parameter used to reduce 
temperature, k/e 

correction factor for A 

r 

molecular weight 

used in k - k reduced correlation 
for thermal conductivity; z also 
used in surface tension 

temperature at thermodynamic criti- 
cal point, T^, K 

density at thermodynamic critical 
point, p^, g/cm^ 

(k - k*)XZ^ coefficients for POLY 

index for k /krp curve 
^ c 

krp , cal/ sec -cm -K 
^ c 

k /krp curve coefficients for POLY 
^ c 

KODE=l for inert gas 
=2 for diatomic 
=3 for carbon dioxide 
=4 for methane (CH^) 

viscosity normalizing parameter, ^ 

surface tension multiplier, 

density at the triple point 

lower temperature switch to numeri- 
cal specific heats 

use numerical techniques on neon, 
carbon monoxide, and helium where 
temperature or density switch is 
set 
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DIFTT temperature increment for evaluating 

numerical specific heats 

RHOSWT density delimiter for switching to 

numerical specific heat calculation 

AMUC, BMUC viscosity correction parameters at 

high density (eq. (B38)) 


Function CHECK 

3 

Entry: DCHECK(KU, D) . - At this entry point the density D is converted to g/cm 
and checked to see if D is out of range. 

Entry: PCHECK(KU, KR, P) . - This entry converts the pressure P to MPa and 
checks for out of range. If KR=1, P is checked to see if it is out of saturation range. If 
P is out of range, the program writes an out -of -range note and continues. 

Entry: TCHECK(KU, KR, T) . - This entry converts the temperatvire T to Kelvin 
and checks for out of range. If KR=1, T is checked to see if it is out of saturation rai^e. 
If T is out of range, the program writes an out-of-range note and continue. 

These entry points convert the variables from the user's units to those represented 
by KU=1 and check for out-of -range variables. Appropriate messages are written for 
any out -of -range input, but the calculation is allowed to continue. 


SUBROUTINES TO OBTAIN STATE VARIABLES(KS OPTIONS) 

The following subroutines use the mathematical routines, function CHECK, and sub- 
routines listed with each (see the modular structure of GASP, appendix G and table XI). 
Their use is determined by the KS and KP options (table V), and they are called by sub- 
routine GASP. If a user wants to use only a few of these siibroutines, he can disassem- 
ble the GASP program by following the instructions in appendix G and the discussion for 
the routine of interest. These subroutines are called twice by GASP for saturation prop- 
erties, once with DL and once with DV as input for D. 


Subroutine DENS(KU, T, P, D, DL, DV, KR) 

Subroutine DENS solves equation (Bl) for the density, given T and P in units indi- 
cated by KU. The region number KR is retimned, and the density is returned in D for 
KR=2 or KR=3. For KR=1, the saturation values are returned in DL and DV. If KR=1 
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for input and either T=0. or P=0. for input, the saturated value is calculated and re- 
turned for the variable which was input as 0. 

The solution is obtained by ROOT for subcritical pressures and by SOLVE for sat- 
uration or supercritical pressures. Special initial estimates were found necessary for 
convergence with SOLVE in the near-subcritical temperature region when 
0. 9 T^ <T < 0.9999 T^. 


Subroutine PRESS(KU, T, D, P, KR) 


Subroutine PRESS solves equation (Bl) for the pressure as a function of T and D in 
regions KR=2 and KR=3 and as a function of only T in region KR=1 (using subroutine 
PSSS). The result, P, is returned in user's units indicated by KU. The correct value 
of KR is also returned, and the calculation is direct. Equation (Bl) is repeated in its 
expanded form for N = 6, M = 2: 


P = RpT + A(T)p2 + B(T)p^ + C(T)p^ 


D(T)p^ + njgp® + p^ 


[e(T) + p^F(T)] 


-n 


20^ 


Vt, 


where if the fluid is helium, T 2 = T, otherwise Tg = 1; and where 


Hq „5 n„i 

J n n Zl 


A(T) = n,T + n„ + — + — + — + 

i ^ rp O Q 


T rj,2 rp3 ,p4 


B(T) = nggT^ + ngT + n,^ + 5 


T rj,2 


C(T) = ngT + n 


10 


D(T) = njjT + n^2 + 


‘24 


T t^/t2 


63 



F(T) = 



The coefficients to ngg are from Bender’s original equation, while ngj to ng^ 
have been added for carbon monoxide, neon, and helium. 


Subroutine TEMP(KU, P, D, T, KR) 

Subroutine TEMP solves equation (BIO) for the temperatime parameter T, given P 
and D in user’s units specified by KU. In regions KR=2 and KR=3, SOLVE is used to ob- 
tain the solution. In region KR=1, which is either input or determined, T is a function of 
P only and is obtained from subroutine TSS by solving equation (B18) for T. Subroutine 
TSS also uses SOLVE. The correct KR is returned. 


Function DSF(DS) 

Function DSF is a multiple -entry routine used with DENS to solve for density DS, 
given temperature TS and pressure PS: 


D.'JF = P _ P 

Equation of state ^Given 


Entry DDSF(DS) 

Entry DDSF calculates the derivative of function DFS(DS) and is used with DENS to 
solve for density DS, given temperature TS and pressure PS: 

DDSF = 

dp 


Subroutine PSSS(PSS) 

Subroutine PSSS computes the saturation pressure PSS, given temperature TS, 
where 
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logjo P = il * 1+ )3T + l4T^ + * JeT'' + J,t5 


and the values jj to j,^ are stored by subroutine SETUP. 


Function TSS(PS) 


Function TSS(PS) is used to compute saturation temperature, given the pressure PS. 


Function TSSF(TSS) 

Function TSSF is a multiple -entry routine used with function TSS to solve for sat- 
uration temperature TSS, given pressure PSS: 

TSSF = (Vapor -pressure equation) - logjQ (PS) 


Entry DTSSF(TSS) 

Entry DTSSF provides the derivative of function TSSF(TSS) and is used with function 
TSS to solve for saturation temperature TSS, given the pressure PSS: 

DTSSF = ^('TSSF) 

3T 


Fimction TSF(TS) 

Function TSF is a multiple -entry routine used with TEMP to solve for the temper- 
ature TS, given pressure PS and density DS: 

TSF = (Equation of state) - PS 


Entry DTSF(TS) 


Entry DTSF calculates the derivative of function TSF(TS) and is used with TEMP to 
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solve for temperature TS, given pressure PS, and density DS: 

DTSF = 

0T 

Subroutine TEMPPH(KU, P, H, T, D, DL, DV, KR) 

Subroutine TEMPPH solves equation (B20)by using equation (BIO) for the temper- 
ature parameter T and density D, given P and H as input in user’s units indicated by KU. 
The double iteration is performed by using ROOT and ROOTX with fimction TSHF for re- 
gions KR=2 and KR=3. In region KR=1 the saturation values are determined for DL and 
DV by DENS, and T is found by function TSS (using SOLVE). KR is also retiirned. 


Subroutine TEMPS(KU, P, S, T, D, DL, DV, KR) 

Subroutine TEMPS solves equations (B21) and (B16) for T and D in the same manner 
as TEMPPH, by using P and S as input and function TPSF for the double iteration with 
ROOT and ROOTX. 


Function TSHF(TS) 

Function TSHF is a multiple -entry routine used in conjunction with TEMPPH. It ob- 
tains a trial value of DS by using the given PS and a trial TS. Then it obtains a trial H, 
which is compared with the input enthalpy within an iteration in TEMPPH. 


Entry TPSF(TS) 

Entry TPSF is a function used in conjunction with TEMPPS. It obtains a trial value 
of DS from the given PS and a trial TS. Then it finds a trial S, which is compared to the 
input entropy within an iteration in TEMPPS. 


SUBROUTINES TO OBTAIN DERIVED THERMODYNAMIC PROPERTIES 

The following routines assume that the variables T and D have been input or pre- 
viously calculated in the user’s units. This condition is satisfied in svibroutine GASP. 
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When KR-1 is input or has been so determined, the corresponding saturated variable 
(HL, SL, etc. , or HV, SV, etc.) is output. 


Subroutine ENTH(KU, KR, T, P, D, H, HL, HV) 

Subroutine ENTH calculates enthalpy H in user's units (KU) by using equation (B20). 
SL and SV are retitrned for saturation conditions, KR=1. 


Subroutine ENT(KU, KR, T, P, D, S, SL, SV) 

Subroutine ENT calculates entropy S in user's units (KU) by using equation (B21). 
SL and SV are retimned for saturation conditions, KR=1. 


Function HDINT(DS, DSL) 


Function HDINT is a multiple -entry routine which computes the integral used in the 
enthalpy computation from density DSL to density DS. 


AH 



dp 


Entry SDINT(DS, DSL) 


Entry SDINT computes the entropy integral from the density DSL to the density DS. 


AS 



dp 
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Function HDINTF(DS) 


Function HDINTF is a multiple -entry routine which evaluates the integrand of func- 
tion HDINT, where DS is the variable of integration. 


2 


P 



Entry SDINTF(DS) 

Entry SDHSTTF evaluates the integrand of function SDINT, where DS is the variable 
of integration. 



Function HSS(PS, DS) 

Ftmction HSS is a multiple -entry routine which computes the enthalpy in the region 
KR=3 (table V) or saturated vapor enthalpy (KR=1), given pressure PS, density DS, and 
temperature TS. 


H 



C . dT + (Z - 1)RT 
p, u 



dp 


where 



E 


j-i 


mjT 


1 


and the values 


mj to mg are stored by subroutine SETUP, except those for hydrogen. 
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Entry SSS(PS, DS) 


Entry SSS computes the entropy in the region KR=3 or the saturated vapor entropy 
(KR=1), given pressure PS, density DS, and temperature TS. 


Subroutine HSLV(PS) 

Subroutine HSLV is a multiple -entry routine used in conjunction with HSS to compute 
the saturated liquid and vapor enthalpies, given pressure PS and temperature TS. HV 
comes from HSS, and HL = HV - T*HSSLVF. 

Entry SSLV(PS) 

Entry SSLV is used with SSS to compute the saturated liquid and vapor entropies, 
given pressure PS and temperature TS. SV comes from SSS, and SL = SV - HSSLVF. 



S - Sq + 


/ 


C „ d(ln T) - R In(RTp) + 
P? ^ 


/ 


Function HSSLVF(PS) 

Fimction HSSLVF is used with HSLV to compute saturated liquid enthalpy from sat- 
urated vapor enthalpy or satiurated liquid entropy from saturated vapor entropy, given 
pressure PS and temperature TS. 


HSSLVF = — AV 
0T 


where V = 1/p. 
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Subroutine CPPRL(PS, DS, T, CPPART, CVPART, KU, KR, KCP) 


This routine calculates the following in user's units KU: 

(1) Specific heat at constant volume CV 

(2) Specific heat at constant pressure CP 


These specific heats are computed by 



and 


CP 



(B22) 


(B23) 


provided the input density is less than Pgwitch/<^c density where the cal- 

culation of CV changes from numeric to analytic to the critical density). These ratios 
for the fluids of interest are given in the following table: 


Fluid 

^switch^^c 

Fluid 

^switch^^c 

Helium 

2.4 

Oxygen 

2.4 

Methane 

2.5 

Argon 

2.4 

Neon 

2.4 

Carbon dioxide 

2.4 

Nitrogen 

2.2 

Fluorine 

2.2 

Carbon monoxide 

2.4 

Hydrogen 

2.2 


At a certain density ratio for each fluid, the calculation of the specific heat CV 
changes from the direct calculation of equation (B22) to a numeric method where 



is solved by using a spline interpolation of five enthalpy values calculated on the isochore. 
This numeric calculation is performed by subroutines SPCHV, CVPS, and SPLENA. 
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While direct calculation of CV may be valid at densities greater than the switching den- 
sities for some fluids in GASP, the numeric method is preferred because of the some- 
times erratic behavior of dP^/dT^. In addition, if T <T^, the specific heats for neon, 
carbon monoxide, and helium are computed by SPCHV. The P-T diagram given in fig- 
ure 29 will give the user a better feel for the physical regions involved. 

The first partial derivatives from subroutine PTRHO (eqs. (B9) and (B12)) are made 
available through COMMON/DE R I V/PDT, PDTL, PDTV, PTVL, and PTVV. These are 



with PDTV for saturated vapor and PDTL for saturated liquid and 



with PTVL for saturated liquid and PTW for satxrrated vapor . 


Fvinction CPPRLF(DS) 

Function CPPRLF evaluates the integral used in computing specific heats: 



Subroutine PTRHO(D, T) 

Subroutine PTRHO evaluates two partial derivatives. The answers are retiu-ned in 
COMMON/PARTLS/PTV, PDT. 


PTV 
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PDT 



Subroutine SPCHV(KU, KR, T, P, D, CV, CVL, CVV) 

Subroutine SPCHV computes the specific heat at constant volume CV given temper- 
ature T, pressure P, and density D. If KR=1, the saturated liquid or vapor specific heat, 
CVL or CVV, respectively, is computed as requested by GASP. 


CV = 


AT 



See siibroutine CPPRL. 


Subroutine CVPS(KVP, KR, CVS) 

Given temperature, pressure, and density, this routine is used to determine five 
values of internal energy U for a spline fit used in SPCHV to compute the specific heat at 
constant volume. 


Subroutine SONIC(KU, KR, T, D, GAMMA, C) 

This routine calculates the sonic velocity C, in user's units KU, by using equa- 
tion (B26) and the ratio GAMMA=CP/CV, where GAMMA is calculated in subroutine 
GASP. 


Subroutine VISC(KU, KR, T, D, MU) 

Subroutine VISC uses T and D as input in user's units KU. Dynamic viscosity is 
calculated by using one or more of equations (B27) to (B36) depending on the fluid, as 
explained in appendix B. Calculations of dynamic viscosity are direct evaluations of 
curve fits but may be altered as by equation (B38). A special form is used for hydrogen 
and helium. 
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Function VISCD(DS, TS) 


Function VISCD, developed by McCarty of NBS, computes the dynamic viscosity of 
helium. 


Subroutine THERM(KU, KR, T, P, D, EXCESK, FK) 


Subroutine THERM uses T, P, and D in user’s units KU to calculate the thermal 
conductivity FK in user’s units KU. An optional coding section calculates the critical 
excess thermal conductivity EXCESK associated with the critical anomaly in the PVT 
region, 0. 4 < p/p^ < 1.6. See also references 25 and 29 to 32, the subroutine listing 
in appendix H, and equations (B55) to (B60). EXCESK will be computed for the density 
regime 0. 4 < p/p^ < 1. 6. To obtain the thermal conductivity of a near-critical fluid, 
the user must add FK and EXCESK. 

The equations used for the thermal conductivity of the different fluids are (B39) to 
(B54). Subroutines CONZ and CONC are used for the special forms for parahydrcgen 
and helium (eqs. (B45) to (B47) and (B51)). 


Subroutine SURF(KU, KR, T, SIGMA) 

Subroutine SURF uses T in user's units KU to calculate the surface tension SIGMA 
of the liquid by using equations (B61) and (B62). 


Subroutine DGUESS(TS, TCR, DST) 

Subroutine DGUESS provides an estimate of near-critical density that is used by 
subroutine DENS. 


Function CONZ(TEMP) 

Function CONZ computes the thermal conductivity of dilute gaseous helium as a 
function of temperature by the technique of H. M Roder of NBS, Boulder, Colorado 
(private communication). 
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Fianction CONC(T, D) 


Fvinction CONC computes the thermal conductivity of hydrogen in both the dense - 
and dilute -gas regions. 

Subroutine SETCPO(T) 

Subroutine SETCPO computes C q for hydrc^en according to the regions 
established in appendix K. 
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APPENDIX G 


MODULAR DESIGN OF GASP 

A user with limited core storage or with specific property needs may wish to use 
only parts of GASP. The subroutines have been coded so that most of the subroutines 
corresponding to the ”KP’’ option requests may be removed without causing errors in 
logic or calculation. Table XI indicates which routines are absolutely necessary and 
which are optional. The conditions for removal must be strictly followed. For sim- 
plicity, the KP options are discussed as though only one option was being requested. In 
reality, the input variable KP is always the sum of the KP options desired. 

Prior to modifying GASP, the user should note that the internal structure of GASP 
is best seen from the flow chart of appendix H and table V, noting the various KP options. 
(The separate calls which use enthalpy and entropy are assumed to have been deleted 
whenever the enthalpy or enthalpy subroutine is removed. ) 

Other storage savir^s may be constructed by using table XII. Some charges that can 
be made to GASP and the corresponding reduction in storage requirements are as follows: 

(1) Setup can be narrowed to one fluid, that is, eliminate 9 of 10 fluids 



storage saved, 2147o 

o 


A more prudent trimming of BLOCK and SETUP results in a savings of more storage 
spaces. Similarly, by editing each subroutine and function in GASP, further savings can 
be realized. Also, parahydrogen requires several special subroutines that are not re- 
quired for other fluids such as methane, for example, FUNCTION VISCD, FUNCTION 
CONC, FUNCTION CONZ, SUBROUTINE SETCPO, special calculations in VISC and 
THERM, special branching and subsequent calculations throughout the program. Thus, 
if results for only a single fluid other than hydrogen are desired, a maximum savings in 
storage can be attained by deleting these special subroutines, 

(2) Calculations with P, p, and T only (eliminate all others) 
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(3) Enthalpy -entropy calculations 



(4) Specific user requirement - specific heats, sonic velocity, and derivatives 
(a) If p ^ P switch P- appendix F), 
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(b)ff P>Pswitch’ 


P, p, T calculations (KS=1, 3) 

KP=1 Enthalpy 

KP=2 Entropy 

KP=4 Specific heats, sonic 


velocity, and derivatives 



Storage saved, 4650n 
o 


(5) Transport property calculations 


P, p, T calculations (KS=1, 3) 



KP=8 Viscosity 

KP=16 Thermal conductivity 

KP=32 Surface tension 


Storage saved, 7612 q 

o 


The specific illustration of removing all but one fluid from subroutine SETUP and 
BLOCK DATA is given as follows: 
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c 

C TEST PPOr,RAM PRtPAPES TABLES FOR EACH FLUID OVER A RANGE OF PVT 

C 

COMMON/PROPTY/KUf DLfDV,HLfHV* Si SL i S V» C V |C VL »C WtCP » CPL t CPV ,GAMHAt 
lGA^MAL,GAMMAV|C»CL,CVP,MU,MULtMUV,K,KL#KV,SIS PA,EXCESK,EXCLfEKCV 
COHNON/DtR IV/PDT, PTV, POTL t POTV, P TVL , PTVV 
REAL MU»MUL rMUV,K,KL,KV 

C OiM:)N /CHECKS /OCHl, DC H2,PCH I, PCH 2 , PCH3 , TCHl ,T CH2 1 TCH3 , DST ,TST,H 
ISCHl, HSCH2 

data NAM/3HCH4, 2HN2,2H02, 2H AR 1 3HC02 1 2HNE , 2HC0 ,2HHE , 2HF2 t2HH2/ 
DIMENSION NAM< 10»,P(3I,T{ 250)»YPL(250il0» , TST ART (3 , ID > ,0TA(3tl3) 
DATA P/l.f lo 100./ 

DATA T STAR T/95. f 295. f 400. 1 65. 1 2 00. » 400. |6 0. »2 25 . |400. f85. t225.t400 
*• r 220 . f 420.f 500. t 25. , 80. , 400. t 70. 1 2 00. r400. »3 • 1 10 . 1 10 0 • «70 . 1 20D • f 
♦400. t I6.,40.t 200./ 

0 AT A CTA/10.f20.f 100.? 10.t20.?I00. flO. ?20. ?100. ?10. ?20.?100.? 

♦ 10. f 20.? 100. f 10.f20.f 100.?10.?20. ?100. f.5?10. ?100. ?5.? 20 . ? ID 0 . ? 

♦ 2 .? 10 .? 100 ./ 

KS=l 

<P=3l 

KU*1 

»<RITE( 6? 1) 

I FORMAT! IHl) 

DO 1000 L = 10? 10 
CALL SETUP (NAMILU 
PI2I*PCH2/. 101325 
n 1 ) = TSTART( 1?L ) 

OT=0T A( 1,L ) 

TS = TSTART( 2?L ) 

N*2 

KPT=0 

DO 20 J=l?50 
KPT=J 

T(J )=T( J l+DT 
Tj*T( j + n 

1 F( TJ .GE .TCH3 ) GOTO 25 

IFIL.EO.IO .AND. TJ .GE . 1999. 5» GOTO 25 
IF( TJ-7S*.05I 20?210?210 
210 T(J+1)*TS 

OT=DTA(N?l ) 

N*N*l 

TS=TCH3 

IFIN.LT.A) TS*TSTART(N,LI 
20 CONTINUE 
25 KPT=*KPT + 1 
T(KPT )*TCH3 
DO ICO 1=1? 3 
Z= P( I l + . 101325 
DO 50 J=1?KPT 
KR*0 

CALL GASP (KS,KP,T( Jl ?7?0?H,KR) 

YPL< J? n=D 
YPL ( J? 2 ) = H 
YPL( J? 3I = S 
YPL ( Jl 4 )=CP 
YPL! J, 5 »=CV 
YPL ( J? 6 l=C 
YPL ( J? 7 )=K 
YPL! J? 8 )=MU 
YPUJ?9)=PPT 
YPU J? 10»=PTV 
46 FORMATIIH ,I6,6E14.6I 
50 CONTINUE 

C TABLE OF 

C DENSITY, ENTROPY, ENTHaLPY, CP? CV? SONIC VELOCITY 

C THERMAL CDNDU: TIV! TY? VISCOSITY AND PARTI A L DERIVATIVES 

C FOR EACH T P 

.^RITEt 6, 8001 NAM(L1?KU 

800 FORMAT! IHl ,45X,34H THERMODYNAMIC PROPERTY TABLE — ? A4 ?3X?3HKU= 

1 I3J 

WRITE! 6? 80n Pill 

801 FORMAT! IHO ?5X? Fio.2 ?11H ATM ISOBAR! 

WRITE!6?701! 

WRITE! 6? 702) 

701 FORMAT! 3H0 , 4HTEMP? 5X? 7H0ENSI TY ?4X , SHE NTHALP Y *4X , 7 HE NT ROPY ? 7X ? 2HC 

♦P? lOX, 2HCV?9X,7HSaN VEL ? 4X, lOH THERM CONO ? 5X ?4HV1SC ? 7X?5HDP/00?7X? 5 
♦HDP/DT,/ ) 

702 F0RMAT(4X, IHK ? 8X? 4HG/CC?aX? 3H J/G , 8X ?5H J /G-K ,7 X, 5H J/G-K ? 7X , 5H J/G-K? 
♦ 8X, 4HCM/S? 7X? 8HJ/CM-S-K? 5X? 6HG /C M- S,4 X? 1 JH MN- CC /G-M2?3X,7HMN/K-N2? 
♦//! 

00 150 J=t.KPT 

WRITE !6,003) r IJ!?(YPL(J? NI?N=i,10! 

IF (MOC!J?50!.NE.OJ GO TO 15C 
IF ( J .EO. KPT ) GO Tj 15u 
WR1TE!6,800I NAM! L » 

^RITc! 6? 801) P! I ) 
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a03 l-ORMAT ( IH t F 6 . I, 2X , 10( IX , G 1 1 . 4M 
150 COMTINUE 
100 CONTINUE 

51 FORMAT! 12H ISOBARS = 5F10.3 ) 

1000 CONTINUE 
RETURN 
END 


— THIS PnuTiNE OVEFLAYS COFFICIENTS FOR SPECIFIED FLUID-NAMGAS 

IN PROGRAM COMMON BLOCKS 

COEFFICIENTS FDR ALL FLUIDS ARc PRcSTORE'D IN BLOCK DATA 

SUBROUTINE SETUP (NAMGASI 

COMMON /ALL CO F /CDF! 53 > , TCC OF ( 1 5 1 ,AKSTCOC18l ,DI ST, 

IWTMOL , EPSOK, ZETA,FF,SWT,KSWT,OIFTT, 

2RFO$WT,CTP IPL ,AMUC,BMUC 

COMMON TO DETERMINE FLUID AND INFORM USER OF HIS CHOICE 
COMMJN/CAS£S/MESSAG( 15» 

COMMON/hFAT/K GAS 

SPECIAL SWITCHES FOR HELI UM,FLUORI NE .HYDROGEN 
COMMON/hELFLU/ IHE, IFL, IHY 
CCMMON FOR EQUATION OF STATE COEFFICIENTS 

COMMON/BEND/ R ( 1 » , CP 1 , CP2 , CP 3 , CP A, C P5 ,C P6 , CP7 , C P8 , C P9 , CPIO , 

ICPll, CP 12, CP 13, CP lA,CP15,CP16,CP17,CPld,CPl9,CP20 
2 ,CP2 l,CP22,CP23,CP 2A 

SATURATION CURVE COEFFICIENTS 
COMMON/COSAT/ CPSl! 1 ) , C PS 2 , CPS3 ,CPSA,C PS5 ,CP S6 , CPS7 
CPO CLRVE COEFFICIENTS 

COMMON /CnCPO /TO ( 1 ),CCOP l,CCOP2,CCOP3,CCOPA,CCOP5 
REFERENCE ENTROPY, ENTHALPY , CP COERRECTION FACTOR 
CCMMON/PEFNO/SOTO,HOTO,CPOCOR,HTERM,STtRM 
PARAMETERS FOP CHECKING REGION AND RANGE LIMITS ON DENSITY 
PRESSURE, TEMPERATURE, ENTHALPY. DENSITY AND TEMPERATURE ESTIMATES FOR 
NEWTCN-KAPHSON ITERATIONS 

COM MON /CHECK S/DCHK 1 ) , DCH2 , PCH 1 , PCH2 , PCH3 , TCHl , TCH2 ,TCH3, OST, TST, H 
IS CHI, HSCF2 

CONSTANTS FOR THERMAL CONDUCTIVITY CALCULATION. 

C0MM0N/TCDN0/CKMKST( 9 >, XLAMB,2C5, RHOCR, TCR, TCSTAR, CKSTAR(181 
CONSTANTS FOR VISCOSITY CALCULATION. 

COMMON/COFMU/EPSK,WM,D IS, RHOCR T,ZETAA,AMUX,B MUX 
CONSTANTS FOR SURFACE TENSION CALCULATION. 

COMMON /SUR CON/PCTC.TCR IT,FI XI T, ZET 
SWITCH FOP CP-CV CALCULATION. VALUES IN CERTAIN REGIONS ARE 
CALCULATED BY NUMERICAL DIFFERENTIATION ...WHENEVER THE ANALYTICAL 

DERIVATIVES ARE GOOD, THEY ARE USED 

COMMON/SWITS/KSWIT,TSWIT,OIFT,RSWIT 
COMMON/SOL lO/DTR IP 
IHE=0 
IFL=C 


NAMGAS IS ALWAYS H2 FOR PARA-HYDROGEN 


KGAS* 1C 
IHY = l 

WRITE(6,101) (MESSAG( I 1 ,I =1 ,15) 

101 FORMAT ( IHO, 15A6) 

STUPE CONSTANTS FOR BtNDER-S EO. OF STATE 
DO 20 1*1,25 
20 RII )= COF( I) 

STORE SATURATION CURVE FOR GAS 
00 25 l*2t,32 
25 CPS 1( 1-25 I * COF< I ) 

STORE CPO COEFFICIENTS AND REFERENCE TO 
00 30 1=33,38 
30 T0( I-32I = COF( I) 

STORE REFERENCE ENTROPY, ENTHALPY, CPO CORRECTION FACTOR 
TX = T3 C 1 ) 

COMPUTE LOWER ROUND FOP THE ENTHALPY AND ENTROPY CALCULATIONS IN HSS 

10.312 = 4.968*A. 18A/2.01572 
STERM= 10.312*ALOGITX) 

HTERM= 10.312*TX 
SOTO= C0F(39I 
HOTO* COF(AO) 

CPOCUR=CnF( A1 ) 

C STORE CRITICAL VALUES AND REGION BOUNDARY CONSTANTS 

00 35 I*A2,53 
35 OCHK I-4U = CGF( I I 
XLAMB* TCCOF< 1 > 

2C5* TCCCF( 2) 

TCR= TCCOFO) 

RHOCR = TCCOF(^) 
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C LOAD K-K^ CURVE CDEFFICIENTS 

DO 45 1-5, 13 

45 CKMKSK 1-4)- TCCOF{ I » 

TCSTAR= TCC0F( 15) 

1= TCCGF( 14)4-. 1 

C LOAD KSTAR/KSTARTC CURVE COEFFICIENTS 

DO 50 J = lf 18 
50 CKSTAR( J ) = AKSTCOU ) 

C STORE CONSTANTS FOR U-U* AND VISCOSITY CALCULATION 

WM^WTMOL 
I ETAA=/£TA 
RHOCRT=TCCOF( 4 ) 

EPSK =EPSDK 
DIS=DIST 

C STORE CONSTANTS FDR SURFACE TENSION I RF IS RIEDEL FACTCRI 

TCRIT=TCF2 

PCTC=( PCF2/, 10 1 32 5) + ^ .66666 67* TCH2**. 33333 33 

F IX IT = FF 

ZET=ZC5**.2 

C ENTER SWITCHING PARAMETER FOR CP,CV CALCULATION 
KSW IT=KSWT 
TSW IT = SWT 

IF (XSVIT.E0.2) TSWIT=*TCH2 

OIFT=D IFTT 

RSW IT=RFC)SWT*RHnCRT 

OTRIP^CTRIPL 

AMUX=AMUC 

aMUX=BMlJC 

RETURN 

END 


STOKES THE COEFFICIENTS FOR ALL FLUIDS FOR THE EQUATION OF STATE 
ANC THE TRANSPORT EQUATIONS. 

STORES CONVERSION CONSTANTS NEEDED BY ALL FLUIDS 

BLOCK CATA 

CGMM0N/GASES/MES5AGI 15) 

COMMON/ C0N123/ DCONV ( 5 ) , TC ON V( 5 ) , PCONV < 5 ) 

COMMON/CONV4/SCONV( 5) 

C0MM0N/C0NV5/CC0N V( 5) 

C0MM0N/C0NV6/HCQNV( 5) 

C0MM0N/ALLC0F/C0F( 53) , TCC OF U 5 ) , AKSTC 0 ( 1 8 ) ,01 ST , 

IWTMOL , ePSOK,ZETA,FF,SWT,KSWT,OIFTT, 

2RH0SWT, CTR IPL , AMUC , BMUC 
DIMENS ION MH2I 15) 

EQUIVALENCE ( ME SS AG (1 ) ,MH 2 ( I U 

DATA MF2(1)/ 90HTHERMOOYNAMIC AND TRANSPORT PROPERTIES FOR HYDRO 
IGENPC- 12 ,7 59ATM,TC = 32.976K,RHaC = .03143G/CC / 

DATA TCONV / 1. , 1. , 1. 8 , 2* I . / 

DATA PCGNV/1. , 9.8692327, 145.03774 ,2*1./ 

DATA CCONV/2* l.,62.42796, 2* 1./ 

DATA SCDNV/2*!., 0.23900574, 2*1./ 

DATA FCONV/2*!., 0.4302103, 2*1./ 

OATA CCONV/2* 1., 0.0328084, 2*1./ 

DATA <C0F< 1 ), 1 = 1, 53)/4. 1260486, .44446150E*2 , 

1- .38659604E*4,-.1096655GE*6, . 1 2080022E ♦ 7 , 54747 655E + 7, 

2- .332 7e647E<-3, .8 1345734E * 5, . 2 6294257E ^>6 , . 3006398 3E*5 , 

3- .33024955E+7,- .246867076 4-6, , 47555234E 8 , -. 120643326*9, 

4- .49289827E*8, . 1 59 25 094c * 1 0, -. 871023656*10, .663 302666*11, 

5. 163666226*11, - . 1295 44 19E * 14, .10506*4, 4*0., 

6-. 105938176*1, -.3 52495 706*2, .370700396*0, 2360 16 14E-1, 

7.85529568E-3, - . 16180625E-4, . 12500233E-6 , 20.260 , 

V 14. 7599 3 60,-. 21977388, . 32 100769E-2 . 1 206 1 502E-4, . 5 712 1 808 E-8 , 

X2 1. 176^2, 209.9406,1.0, 

8.1E-4, .11, .1013256-3, 1.2928, 100., 13.8, 32.976, 

A3000., .09, 60.,-309.89197 , 49289.7 / 

C TRANSPORT PROPERTIES ARE LIMITED BY THE STATE OF THE ART 

C READ REPORT ON GASP FOR COMPLETE DETAILS 

C 
C 

OATA lAKSTCOII ) , I =1 , 18) /3. ,3. ,-4. , U. , 0. , 1.0, 0., 

10. 0, - 1.12398965, . 79352374, . 8 J465602,- . 2 1370471E-2 , . 39794, N2 

20.. 0., .729, .081707270, 1.0 / 02 

OATA ( TCCOFI I ),I=1, 15 ) /I. 49 78 , . 2 52 512E-2 , 32. 976 , . 03 143 , 1. , 4 . , 

L- 1., 2. 70 5 81484, 4. 306 10645, 1. 88960889 , I . 26994786 , -6 . 8242 8539 , .4, 

22 ., .6 1979F-4/ 

OATA C IST,EPSt)K,WTMOL,ZETA,FF ,OTRI PL, SWT, K SWT ,0 IFTT ,RHOSWT ,AMUC,BM 
lUC/2. 928, .C27, 2.0159, .407 862456-1, I . , . 1 1 , 68. , 1 , 1. , 2 .2 ,2*0 . / 

END 
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THERMODYNAMIC PROPERTY TABLE 
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APPENDIX H 


PROGRAM LISTING AND FLOW CHART FOR GASP 


This appendix contains a complete listing of GASP and a set of flow charts to aid the 
user in interpreting the program operation and logic. 


LISTING OF GASP 


C 0ENOER-S EQUATION OF STATE FOR THE FIVE GA 5E S"N2 »CH4 * ARf C2 » CC2 

C ALSO EQUATIONS OF STATE FOR CO, Nt, HE, AND FLUORINE 

C ALSO PARA-HYDROGEN 

C 

C COMPUTE THE STATE RELATIONS AND THERMODYNAMIC AND 

C TRANSPORT PROPERITES OF SPECIFIED FLUID GIVEN TEMPERATJRE T, 

C PRESSURE P, DENSITY D, OR ENTHALPY H. STATE RELATIONS ARE 

C SPECIFIED BY KS. THERMODYNAMIC AND TRANSPORT PROPERTIES 

C ARE SPECIFIED BY KP. IF KR I S RETURNED OR SPECIFIED AS 1, 

C PROPERTIES ARE COMPUTED AT SATURATION. 

C 

SUBROUTINE GASP (K S, KP , T,P ,0 ,H,KRI 

COMMON/PROPTY/KU,OL,OV,HL ,HV, S, SL , S V, C V ,C VL ,C VV ,CP,CPL,CPV , GAMMA, 
lGAMMAL,GAMMAVfC,CL,CVP,MU, MUL ,MUV,K,KL,KV,SIS MA ,EXCESK,EXCL,EXCV 
REAL MU,MUL,MUV,K,KL,KV 

COMMON /DER IV/POT, PTV, POTL ,P0TV, PTVL , PTVV 
COM MON /PAR TLS/PTVltPOTl 

COMMON/CHECXS/OCHl ,0CH2,PCH1 , PCH2,PCH3 ,TCH I , TCH2 ,TCH3, DST ,TST,H 
IS CHI, HSCH2 

COMMON/CON 123/DCONV(5I,TCONV( 5) ,PC0NV(5) 

COMMON/HELFLU/ IHE, IFY,IHY 
KTR*0 

GO TO < 10,20, 30,40, A5),KS 
C 

C COMPUTE DENSITY 

10 CALL DENS(KU,T,P,0,0L,0V,KR) 

GO TO 50 
C 

C COMPUTE PRESSURE 

20 CALL PRESS(KU,T,D,P,KR ) 

GO TO 50 
C 

C COMPUTE TEMPERATURE 

30 CALL TEMP(KU,P,0,T,KR I 
GO TO 50 
C 

C COMPUTE TEMPERATURE AND DENSITY GIVEN PRESSURE AND ENTHALPY 

40 CALL TEMPPH(KU,P,H,T,OfOL,DV,KRI 
GO TO 50 
C 

C COMPUTE TEMPERATURE AND DENSITY GIVEN PRESSURE AND ENTROPY 

45 CALL TEMPPS ( KU, P, S, T ,0, OL ,0 V, KR I 
C 
C 

50 CONTINUE 

KTRA=KP/2^*KTR 

IF( KTRA.EO.O> RETURN 

KTR=KTR>1 

I F( MOOIKTRA, 2 ) .EO .0) GOTO 50 
GOTO< 60, 100, 130,160, 180, 240) , KTR 
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c 

c 

C COMPUTE EMTHALPY 

60 CALL ENTHCKU»KR,T,P,D,H,HL,HVI 
GOTO 5C 
C 

C COMPUTE ENTROPY 

100 CALL ENT(KU,KR,TfP,Of SfSL,SVI 
GOTO ^0 
C 

C COMPUTE SPECIFIC HEATS 'AND SONIC VELOCITY 

130 <CP*0 

IF (KR.NE.n GO TO 200 
CALL OENS(KU, T,P,0,0L »0V, 1) 

CALL CPPRUP f DL f T f CPL ,C VL » KU ,KR t KCP tGAMMALf CL I 

PTVL=PTV1*PC3NV(KU)/TC0NV(KUI 

P0TL=PCT1*PC3NV(KU)/DC0NV(KU) 

CALL CPPRLIPf DVfTtCP VfCVVf KUfKRfKCP »GAMMAV,CVP> 
PTVV»PTV1*PC3NV(KUI /TCONV(KU» 

PDTVaPCT 1*PC3NVCKU>/DC0NV(K0) 

GO T3 lAO 

200 CALL CPPRLIPr 0, T, CP ,C V,KU t KR , KCP ♦GAMMA , C I 
PTV *PTVl*PCONV(KU)/TCONV«KUI 
POT =PDTl*PCaNV(KU>/OCONV(KU) 
lAO GOTO 50 
C 

C COMPUTE VISCOSITY 

160 IF UR.NE*1I GO TO 165 

CALL OENSf KUf T,P, OfOL ,DV, U 
CALL VISC<KUfKR,T,OL»MULI 
CALL V ISC(KUf KR,T|OVt MUV) 

GO TO 170 

165 CALL VISC<KU,KR,TfDtMU) 

170 GOTO 50 
C 

C COMPUTE THERMAL CONDXTIVITY 

C NOTE— FROZEN VALUE AVAILABLE IN K,KL,KY 

C — REACTING CONDUCTIVITY RETURNED IN EXCESK, EXCLtEXCV 

180 IF KR.NE.l) GO TO 220 

CALL DENS(KU,T,PrD,OLfOVt 1) 

CALL TFERM ( K Ut KR ♦ P , T ,DL ♦ E XCL ♦ KL» 

CALL THERM ( KU, KR ,P,T ,0V| EXC V,KV) 

GO TO 190 

220 CALL THERM ( K U, KR , P ,T ♦ D, E XCE SK, K ) 

190 GOTO 50 
C 

C COMPUTE SURFACE TENSION 

240 CALL SURF I KU, KR , T, S I GMA » 

RETURN 

END 


c this ROUTINE OVERLAYS COFFICIENTS FOR SPECIFIED F Ltll 0-NAMGAS 

C IN PROGRAM COMMON BLOCKS 

C COEFFICIENTS FOR ALL FLUIDS ARE PRESTDRED IN BLOCK DATA 


C 

SURROUTINt SETUP (NAMGAS) 

COMMON/ALICOF/COFI 53, 10I,TCCOF( 1 5, 1 01 , A KSTCO ( 18 ,4 ) , 01 S T (10 J , 
IWTMOL ( 10 ) ,EPSPK( 10) , 7FTA ( 10 ) , FF ( 1 0 » , S WT ( 1 0 ) , KSWT ( 1 0 ) , D I FTT ( 10 ) , 
2RH0SWTC 10) , DTP I PL ( 10) , AMUC ( IJ) ,BMUC < 101 
C COMMON TO OhTFRMINE FL'IIO AND INFORM 'jSFR OF HIS CHOICE 

COMMON /GASES/ MATCH! 10 ) , MF SSAG ( 1 5, 10) 

COMMON /UHAT/K GAS 

c SPECIAL Switches for helium, fluorin-iHydrog^-n 

common/helflu/ IHE, IFL, IHY 
C COMMON FDR EOUATtON OF STATE COEFFICirNTS 

COHMON/REND/ R(l),CPl,GP2,Cf’3,CP4,CPb,CP6,r^7,CP8,CP9,CP13, 
ICPll, CP12,CPi3,CPl4,CP15,CPl6,CPl7,CPlB,CP19,fP20 
2 ,CR2 l,CP22,CP23,CP24 
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C SATUPATIOM CURVt CDfc FF IC It NTS 

CrMMON/CnSAT/ CPSK l)tCPS2*CPS3»CPS4,CPS5,CPS6,CPS7 
C CPO CURVE COEFFICIENTS 

CO'^MON/CnrPn/TP( n,CCOPl,CCnP2f CCOP3r CC0P4»CC0P5 
C REFERENCE ENTROPY, ENTHALPY ♦ CP CORRECTION FACTOR 

COHMON/REFNO/SOTD rHOTOtCPOCnR ,HTE RM , S TE RM 
parameters for CHECKING REGION AND RANGE LIMITS ON DENSITY 
PRESSUPEt TEMPERATIJRE# ENTHALPY. DENSITY AND TEMPERATURE ESTIMATES FOl^ 
NEWTON-RAPHSON I TER ATI ON S 

COMMON /CHECK S/OCHU U , OCH 2 , PCH 1 , PCH2 f PCH3 , TCH 1 , TCH 2 ,T CH3 1 0 ST ,T S T , H 
ISCHl, HSCH2 

CONSTANTS FOR THERMAL CONOIXTIVITY CALCULATION. 

COMMON/TCONO/CKMK ST( 9> t XLAMR,7C5, RHOCRf TCR» TCSTARf CKSTAR(18I 
CONSTANTS FOR VISCOSITY CALCULATION. 

C0MMGN/C0FMU/EPSK,WM, D ISfRHOCRT, ZETAA ,AMUX rRMIJX 
CUNSTANTS FDR SURFACE TENSION CALCULATION. 

C0MM3N/SURC0N/PCTC,T:R IT,FI XI T, ZET 
SWITCH FOR CP-CV CALCULATION. VALUES IN CERTAIN REGIONS ARE 
CALCULATED PY NUMERICAL DIFFERENTIATION ...WHENEVER THE ANALYTICAL 

DERIVATIVES ARE GOOD, THEY ARE USED 

COMMDN/SWITS/KSWIT, TSWIT,DIFT,RSWI T 
COMMON/Sni. ID/OTR IP 
K GAS=0 

DO 10 1=1,10 

IF( NAMGAS.EO.MATCHI I I) KGAS = I 
10 CONTINUE 

ifikgas.fo.oi go to 70 

I HE=0 

IF (KGAS.EQ.a) IHE=l 
I a =0 

IF ( KGAS.E0.9) IFL=1 
IF ( IFL.EO.ll WR ITE(6, 721 
I HY=0 

IF*KGAS.E0.19I IHY=1 




WRITE! 6, 1011 

(MESSAG! t,KGASI ,1* 

1,15) 



10 1 

FORMAT 

( IHO, 

15A6) 



C 



STORE 

CONSTANTS FOR BENDER- 

S EQ. OF STATE 



DO 20 

1=1,25 





20 

R(I )* 

COFU, 

KGAS) 



c 



STORE 

SATURATION CURVE 

FOR 

GAS 



00 25 

1*26, 32 




25 

CPS l( I 

-25) = 

COF( I, KGAS) 



C 



STORE 

CPO COEFFICn-NTS 

AND 

REFERENCE TO 


00 30 1=33,38 
30 T0( 1-32) = CDF( I,KGAS ) 

C STORE REFERENCE ENTROPY, ENTHALPY, CPO CORRECnCN FACTOR 

TX = TO< 1) 

C COMPUTE LOWER BOUND FDR THE ENTHALPY AND ENTROPY CALCULATIONS IN HSS 
C 

Al=CC0P5*.25 
A2=CC0P4*. 3333333 
A3=CC0P3*.5 

STERM =( ( ( Ai*TX^A 2 )*T X+A3) *TX^CC QP2 ) ♦ TX^-C CO PI* ALOG ( TX ) 

A1=CC0P5*.2 

A2=CC0P4*.25 

A3* CC0P3*. 3333333 

A4=CC0P2*.5 

HTERM =( ( ( < Al*TX4-A2)*TX+A3)*TX«‘A4)*TXi-CC0Pl )*TX 

C 10.312 = 4.968*4.184/2.01572 

IF( IHY.EQ.I) STERM = 10.312*ALOGtTXl 
IFtiHV.EQ.ll HTERMsl0.312*TX 
SOTO* C0F(39,KGAS) 

HOTO* COF<40,KGAS) 

CPOCOR*COF( 41,KGAS) 

C STORE CRITICAL VALUES AND REGION BOUNDARY CONSTANTS 

00 35 1=42, 53 

35 DCHK I-Ai) = COF{ I,KGAS) 

XLAMB* TCCOF( 1,KGASI 
ZC5* TCCOF( 2,KGAS ) 

TCR* TCC0F(3,KGAS) 

RH3CR = TCCDF( 4,KGAS » 

C LOAD K-K* CURVE COEFFICIENTS 

DO 45 1 = 5, 13 
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45 CMKSTU-4>» TCCO 1 1 KGA S ) 

TCSTAR* TCCOF< 15,KGASI 
I« TCCOF< lAtKGASU.l 

C LOAD KSTAft/KSTARTC CURVE COEFFICIENTS 

DO 50 J-ltl8 

50 CKSTARtJI» AKSTCOUfll 

C STORE CONSTANTS FOR U-U^ AND VISCOSITY CALCULATION 

WH^WTHOUKGAS I 
ZETAA«ZETMKGASI 
RHOCRT*TCCOF( 4,KGAS) 

EPSK »EPSOK(i^GASJ 
DIS*OISTCKGAS ) 

C STORE CONSTANTS FOR SURFACE TENSION ( RF I S RIEDEL FACTOR) 

TCRIT»TCH2 

PCTC*I PCF2/. 101325)** •6666667* TCH2**. 3333333 
FIXIT*FF(KGAS) 

ZET*ZC5**.2 

C ENTER SWITCHING PARAMETER FOR CP*CV CALCULATION 
KSWIT=KSWT(KGAS) 

TSWIT*SWT(KGASI 

IF (KSWIT.EQ.2) TSWTT=TCH2 

DIFT*DIFTT(KGAS) 

RSW IT=RHOSWT( KGAS ) ♦RHOCRT 
DTR IP = CTR IPL( KGAS ) 

AMUXaAMUC(KGAS) 

BMUX=fiMUCIKGAS) 

RETURN 

70 WRITE<6,71) 

71 FORMATdHOf 69H ERROR IN CODE FOR NAMGAS - NO CONSTANTS STORED- 

2 PROGRAM STOP. ) 

72 FORMAT! IHOf 115H THE REGION 125-145K FOR T AND P GREATER THAN 10 

lATM YIELDS POOR RESULTS FOP THE DERIVED PROFPRTIES — BEWARE. ) 

STOP 

END 


STORES THE COEFFICIENTS FOR ALL FLUIDS FOR THE EQUATION OF STATE 
AND THE TRANSPORT EQUATIONS. 

STORES CONVERSION CONSTANTS NEEDED BY ALL FLUIDS 

BLOCK CATA 

COM MON /GASES/ MATCH! 10 I f ME S SAG ( I 5, 10) 
common/ C0N123/ OCONV( 5), TCONVl 5) ,PCUNV(5) 

C0MM0N/CQNV4/SC0NV( 5) 

COMMON/CONVS/CCONV! 5) 

C0MM0N/C0NV6/HC0NV( 5) 

COMMPN/ALLCOF/COF! 53» 10) , TCCOFI 15»10) »AKSTCO( 18 ,4) , niSTUO » , 

IWTMOL ( 10),EPS0K( 10) f ?ETA( 10) tFF 1 10) ,SWT( 10) ,KSWT(10 ),DIFTT UO )• 

2R HO SWT I 10 ),OTR IPL ( 10) ,AMUC ( IC) ,BMUC (10) 

DIHENS ION MCH4( 15 ) ,MN 2( 15 ) ,M0 2( 15) ,MAR (15) »MC 02 (15 ) ,MNE ( 15 ) ,MCO( 15 
1),HHE( 15),MF2( 15),MH2( 15) 

EQUIVALENCE! HESSAG( 1, 1) ,HCH4( 1) ) , (MESSAG(1»2I ,MN2 ( 1 ) I » ( MESSAG( 1,3) 
U M0 2( I ) ), (MESSAG! U 4) ,MAR (!)),( MESSAGU t5 ) t m: 02 (1 ) ) ,( MESS AG! l,6)t 
2HNE! 1 ) )» (MESSAG! 1, 7 I, MCO! 1) ) , (ME SSAGd t8) f MHE (1 ) ) , ( MESS AG( U9 ) , MF2 
3( 1) ),( MESSAG! 1, 10 ),MH2 (LI) 

DATA (MATCH! I ), 1= 1,R) / 3HC H4 1 2HN 2 1 2H 02 1 2HAR , 3 HC C2 , 2 HNE f 2HC Q, 2HHE/ 
DATA MATCH( 9)/2HF2/ 

DATA MATCH! 10 )/2HH2/ 

DATA MCH4! 1) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR ME 

ITHANE PC = 45.66 ATM , TZ =1 90 . 7 7 K, ROC =.162 G /C C / 

DATA HN2! 1) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR N 

IITROGEN PC = 33.72ATM,TC = 126.3 K , ROC =. 3 I 05G /CC / 

DATA M02(l) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR OX 

lYGEN PC=50. 16ATM, TC = 154. 78 K , ROC =. 432 5G /CC / 

DATA MAK(l) / 90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR AR 

IGON PC= 48.014AT^, T:=150.7 K,ROC=.53l G/CC / 

DATA MC02(1I /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR CO 

2 PC = 72 .869ATM, TC=304,21 K» P0C=.464 G/CC / 

'ATA MNE!1I / 90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR NE 
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ION PC* 26.19ATM 
DATA MCO( l> 

I PC-34.529ATM, 
DATA HHE( II 
I PC » 2.2A5ATH, 
DATA MF2tl) 


,fC*A4.4 K, RH0C**483 G/CC / 

/90H THERMODVNANIC AND TRANSPORT PROPERTIES FOR CO 
TC*132.91 Kt RH0C*.2997 G/CC / 

/90H THERMOOYNAHIC AND TRANSPORT PROPERTIES FOR HE 
TC * 5*2Kf RHOC » *06936/00 / 

/90HTHERM0DYNAM1C AND TRANSPORT PROPERTIES FOR FLU 
lORINE PC*5l.47ATN» TZ * 144. 31K tRHOC =. 573 8G /CC / 

DATA MH2( 11/ 90HTHERH00 VNAHI C AND TRANSPORT PROPERTIES FOR HYDRO 
IG EM PC* 12 .759A TM t TC *32 • 976Kt RHOC =• 031 43G /CC / 

DATA TCONV / 1. , 1. , 1 . 8t 2*1 . / 

DATA PC0NV/l.#9.8692327f 145.03774 i2*l./ 

DATA DC0NV/2*l.f6 2.42 796, 2*1./ 

DATA SCONV/2*l.»0.239OO574t2*l. / 

DATA HCONV/2* 1. *0.4302103*2*1. / 

DATA CCONV/2* 1. *0.0328084*2*1. / 

NETFANE— BENDER 1971 


DATA (COFII*n.I*l*53l/ 


1-.86366402E3 
2 .75523689 
3-.61948317E4 

4 .4949S630E8 

5 .12302028E13 

6 .29976933E3* 
7-.12130439E-6, 

8 .392 25023E-2 
98.35517346 

1 .57 

2 .9066E2 

3 .25E3 

NITROGEN- 
DATA (COFd, 21*1*1, 531/ 


.25005236E5 
1211123363 
*- .25603803E2 
.119 56135E11 
,-.644992951; 14 
70773219 
.148489295E-9 
*- .56781803E-4 
, .803 207E3 

, .01167 
, .19077E3 
,220.28242 


1-.15047010E3 
2 .37500265 

3- .24136776E3 

4- .20083357E7 
5 .47216396E10 

6- .20086668E3 * 

7- .25984366E-6 

8 .89930170E-3* 

9 .23351167 El 


. 2607136 5E4 
5073846 5E 2 
, .28954771 

, .43265184E9 

*-.l20l6418El2 
.37077481 
.49025967E-9 


.518251 
,-.12533848E8 
, .20547188E6 
, .11556713E4 
, .88302981E12 
, .37E2 ,4*0. 

-.72349122E-2 
* .11167E3 
, .23442607E-b 
, .260815 
,4.627 
, .6E3 

,2007. / 

BENDER 1971 
.296797 
,-.l2792742E7 
, .14499236E5 
,-.27613799E2 
,-.16513521Ell 
.1E2 , 4*0. , 
,-.62602129E-Z 
.77364 E2 , 


, .17191020E1 
, .3416954769 
, .32337540E2 
, . 27425297 E5 
,-.31713486610 
r -.32097996E2 
, .4085U53E-4 
,7.96986252 
,-.223950076-9 
, .IE-4 
, .5067E2 
* .45 


, .4 80 58 175 
, .29436228E8 
, .1440998EI 
, .36048264E3 
,-. 10141439E8 
-.66869126E1 
, .561871596-4 
.29090035E4-2 


-.92394038E-5, . 26008592E-7 , -.141029266-10, 

, .231188578E3 , .356938886-1 , .1449 E-3 


11.1208 

, .010132 

,3.417 

, .5067 E2 

2 .64 E2 

, .1263 E3 

, .100 E4 

, -92 

3 .18 E3 

,2.1159267 

, 1262. 

/ 

OXYGEN 



OATA( COF( 1,3), 

1=1,53) / 

.259832 

, .34811077 

1-.1407C678E3 

, . 25061744E4 

,-.1008134567 

, . 19074164E8 

2-.40134966E-2 

, .65172112E2 

, .10962206E5 

, .6972158 

3- .2t2 4Z449E3 

, .191378 

, .29415771 E2 

, .78932076E2 

4-.1923158E7 

, .4610824E9 

,-.39936263611 

,-.5668995E7 

5 .13644286E10 

, .91977198611 

, 5. 4 , 4*0. t 

-.515O4410EI 

6 -.25626822E3, 

.26280757 , 

-.36222681E-2 

, .26516635E-4 

7- .10004384E-6 

, .154231556-9 

, .90E2 

, .2914518962 

8- .569 IS86E-3 

, .680326346-5 

,-.484 566046-7 

, . 138 2 2 64 7 6-^ 

94.72426938 

, . 356 42E3 

, .03125117 

, . 15E-3 

1 1.50 

, .0101325 

,5.083 

,1.0000E2 

2 .5435C7E2 

, .1547863 

, .56*3 

,1-3 

3 .23E3 

, 88.464226 

,739.86 / 


AR GON 


BENDER 1970 


DATA (COF( 1,4) 

, 1=1, 53) / 

•208128 , 

.19825921 

1-.81732119E2 

, .1777747E4 

0240654466 

, .3166609368 

2- .442026716-1 

, .6216142E2 

, .11443248E4 

, .4779752 

3-.19645227E3 

,- .21572754 

, .1654414163 

,-.2814211262 

4 .82532059E5 

,- .9 1 5 3 8 3 7 76 7 

,-.18340752610 

,-.3385813667 

5 .15532886E10 

,-.67479568611 

,3.5 , 4*0. 

, .13814448E*2 

6- .5739^3316*3 

, -.18072036E*0 , .183502926-2 

,-. 10957549E-- 

7 .36123787E-7 

, -.50 0 9 7 2 2 06- 

10, .872862 

,2.5 

8 .0 

, .0 

, .0 

, -0 

9 2.757177 , . 

237932E 3 

, .208152 

, .lE-3 

11.48 

, .0101325 

,4. 865 

, .5066E2 

2 .8378E2 

, .150 7E3 

, .1 E4 

,1-3 

3 .2563 

, 70.051092 

,725.24043 

/ 
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CARBON OI3XIDE BENDER 1970 


D*T« COH « I, 5 1 

> I* If 53)/ 

.188918 

, .22488558 

X-.13717S65E3 

,-.1443021465 

,-.29630491=7 

,-.2060603969 

2 .45554393E-1 

, .7704284062 

, .40602371E5 

, .40029509 

>.39436077E3 

, .12115286 

, .1078338663 

, .4396233662 

4-.36505545E8 

, .19490511EU 

f-.291867l8E13 

f .24358627E8 

5-.37546530EU 

, .11898141614 

♦ 5. ,4*0. 

,-.959131 126+2 

6 «26738653E^4 

, .11405373E+1 

, -. 670265536-2 , 

.217450176-4 

7-.37153665E-7 

f .262256086-10 

, .19471 63 

,5.152 

8 .015 224 

,-.96816-5 

, .23136-8 

fO. 

94.0851019 

, .72665417E3 

, .095067 

, .836-5 

11.25 

,0.010132 

,7.3835 

,.5066962 

2 .21656E3 

, .3042163 

, .10064 

1 1 .1 

3 .37 E3 , 

381.34364 , 

1567.66 / 


NEON 


1965 

DATA (COF( It6lf 

1*1, 53)/ 

.41185435 , 

.42879277 

1-.41617333E2 , 

- .1536838864 

, .2170558365 , 

• 0 

2.5237778E-1 

, .3 18 3 2 3 7 66 2 

.1530472564 , 

.86991276 

3-.86565802E2 

f .0 

f • 0 , 

.4199428162 

4 .23856729E6 

. 104443666 8 

f *0 • 

1982009867 

5 .70965701E8 

t .0 

,+.1359015362 ,0 

.0 

6-.12553439E-2 

, -.7688802163 

,-.8493835863, 

.6742290561 

7-.11786837E3 

. 19946844 

, .696809796-2 ,- 

. 146238326-3 

8 .17229114E-5 

,- .837730536-8 

f 27.09 , 

1.02986 

9 .0 

f *0 

f . 0 , . 

3 

12.454C781 

, .923482462 

f !• ». 

30015 

2 1.350 

, .0101325 

, 2.6537 ,. 

202962 

3 24.5 4 

t 44.4 , 

600. , 

1.2 

4 100. 

, .06205 

,694.635 

/ 

CARBON MONOXIDE MUST AND STEWART 

1963 

DATA (COF( 1,7), 

1=1,531/ 

.29692807 , 

. 36547544 

1-.80241533E2 , 

-.1671384165 , 

.1312909566 , 

.0 

2 .653C8710 , 

-.8013149762 , 

.0 , 

.73365157 

3 .0 , 

• 0 , 

• 0 t 

.4136324763 

4 .1806U47E7 , 

+.6394327769 ,- 

.66472139611 ,- 

. 24767075 68 

5 .96546154E10 , 

-.47286423612 , 

.7463244461 , 

.5872531969 

6 .0 , 

• 0 , 

0* f 

.1317284862 

7-.52<^82838E3 

,- . 18207888 

, .203850686-2 ,- 

. 1 3699320 E-4 

8 .51448459E-7 

,- .816769326-10 

,68.14 , 

1.0392602 

9-.5033322E-5 

, .260325236-7 

f . 0 f 

.0 

14.7928763 

, .35387E3 

• 1 • t 

. 5F-4 

2.86 

,.0101325 

,3.49 06 , . 

202762 

3 68.14 

, 132.91 

, 600. , 

.91 

4 180. 

, 120.13179 

,908.8334 / 


HEL lUM 

MANN 1962 


DATA CCDF(I,8), 

1= 1, 53)/ 

2.07722241 , 

8.44702446 

1-.2340 56435E3 

, .47857662262 

,-.11937547963 , 

.3 

2 .20230184662 

, .14653521464 

, . 0 , 

.0 

3-.11186866E5 

t .0 

, .76324486365 , 

-.7072812565 

4-.790460718E4 

, .5453076766 5 

, .159411473=6 ,- 

.18259779767 

5.414625688E7 

, -.16887828768 

, .40570426263 , 

. 30308250463 

6 .0 , 

.0 

t 0. , 

-.2170082661 

7-.32255748E1 , 

.2356100161 

,-.95999492 , 

.22307327 

8-.26190460E- 1 , 

.121906756-2 

, .4214461 , 

.51930623561 

9 .0 , 

.0 

f .0 , 

• 0 

A4.5053 , 

36.5592 

t .161 I 

.4 6-4 

B .2100 , 

•010 132 

, .2274644 , 

.10132562 

C *3EI , 

.526 1 

, .60363 , 

. 18 

0 .3562 , 

5.329044 

,31 67.6647 / 


FLJORINE BARON 

(BENOEP) 1/72 NBS DATA USED 


DATA ( COF{ I, 9 ) 

,1=1,53) / .21881596+0 , .21051539 

1-.81175243E+02 

, .230646306 + 04 631 83 150z +06 , 

.969089666+07 

2 .25933660Ei>00 

,-.636894196+02 , .682403106+04, 

-.137798996+00 

3 .748421546^02 

, .305164786+00 ,-.133040835+03, 

.503157496+02 

4 .403921866^06 

,-.276104596+08 ,-.427096235+10, 

-.336597 376+07 

5 .65832302E^09 

,-.6l9C7880t+09 ,3.066+00 , 

4+0. 

6 .511218686+00 

,-.355386496+03 , .161847655+00, 

-.284416996-02 

7 .25041457E-04 

,-.111048096-06 , .19879696-09 , 

84.953 

87.398 18456+00 

,-.376291016-02 , .268880L65-04 , 

-.386539 136-07 

9 .175153916-10 

, 3.84165 + 00 

, 63.236+00 , 

.11011456+00 

Al. 36-06 

, 2.25 

, .011 r+03 , 

5,2156+0 J 

0 23.36+00 

, 53.48 t+00 

f 144.31L+03 t 

530 . E+30 

C 1.96+0 

, 170,5+00 

f -139.155 t 

405.686 
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C PAPAHYOKHCtN BARON 1971 

OAT A ( CC)F< I, 10 ) , I = 1» 53) / 12604 86, .44446 1 50E 4-2 , 

1- .3 86 59 604E^4,- . 1 09 66 5 50fc ♦ 6, . 1 2 08002 2E^7 , -• 54747 655 E + 7, 

2- .33270647E^3, . 8 1 345 734£ 4- 5 , . 262 942 57E 4-6 , . 3 006398 3E + 5 , 

3- . 330 24955E4'7,-. 24686707c 4-6, . 47 5552 34E 4- 8 , -• 12064332E4-9, 

4- .49 28 98 27E4-8, . 1 5925 894E 4- 1 C, -.871 82 365c 4- 10, . 663 3026 6E4-1 1 , 

5. 16366622E4-11, - . 12954419E 4- 14, .1050c4-4, 4*0., 

6- . 105 93 8 17E 4-1, - .3 5249570L 4-2 , . 3 787 0039E4-0 , 2 360 1 6 14F - 1 , 

7.85 529 56 8E-3, - . 1618062 5E-4, . 12 50 0233 E-6 , 20.26 8 , 

V14. 7599360,- .2197 7388 , .32100 769E-2 ,-. 12 06150? E-4 , . 5 71 2 1803 E-8 , 
X2l. 17< 42, 209.9406, 1.0, 

8.1E-4, .11, .101325E-3, 1.2928, 100., 13.8, 32.976, 

A3000., .09, 60., -309. 89197 , 49289.7 / 

transport properties ARE LIMITED BY THE STATE OF THE ART 
READ REPORT ON GASP FOR COMPLETE DETAILS 


DATA ( AKSTCOI I,l),I-l,18)/3.,3. ,-4. ,0. ,0. , . 98 3 , . 389 11 66E-2 , INERT 

1-.9 69 1 00 1 3E- 1,- .16491245E-1,-. 841 78805E-1 , .03 181928 ,. 175173836-1 GAS 
2, .903089987 , 0.,0., . 631, . 13 672 0567 , 1,778 / 

DATA ( AKSTCOI 1 , 2) ,I =1, 18) /3. , 3. ,-4. ,0. ,0. , 1.0, 0., CO 

10, D,- 1.12398985, .79352374,. 8 0465682,-. 2 137047 IE-2,. 39 794, N2 

20., 0., .729, .081707270, 1.0 / 02 

DATA ( AKSTC3( I, 3) ,1=^1, 8 )/!., 3., - .22 ,-. 1 053 7949 , -.21522105, CO 


11.31584644, .16196636 E-2 ,1.0/ 

DATA! AKSTCO( I , 4 I, 1 = 1, 15) / 2 . , 4. 2 80 ,0 . 0 , . 3 6 107029, .26550054, 

1 1.0243779, -.3075470, .238, 1.6717516,-3.6259505,2.7281748, 

2 .48625031, -.26386326, .71948992/ 

CH4 

DATA (TCCOF(I,n , 1=1,15 ) /. 75226444 201 1 9 5046-2 ♦ 190.77 , 

1.1620 , 1. , 4. ,-.9586073 ,.92583319, 1.55004971, .87042136 , 

21.29907897 ,-7.01464957, .617 , 4., l.E-4/ 

N2 

DATA ( TCCOF( I, 2) , 1 = 1, 15) /. 1 142 5981E 1 20 86587 3E-2 , 126.3 , 

1.3105 , 1., 4., - 1. 39794 , . 51 3 72 790t-l , . 1 7 155947 ,. 39 312 360 , 

21.56022809 ,-6.85395932, .39967,2., 2. 77E-5 / 

02 

DATA (TCCOF( 1, 3) , 1 = 1, 15) /. 963 64877 , . 2 132 07 79E-2, 154.78 , 

1,4325 , 1. , 4. ,- 2.6383, 0. , . 5870132 OE-1 . .2 388 7 32 I , 1. 3946 1 5 38 , 

2-6.86562723 , .5 1 32 176, 2. , 3. 40E-5 / 

AR 

DATA (TCC0F(I, 4), 1 = 1, 15) /. 1 1 03 7087E 1 , . 21 27 7034 E-2 , 150 . 70 , 

1.5310 »l., 4., - 1.744727, . 4732 53 5 7E -1 , .29505409 , .72199889, 

21 .56855570, -6.94782507, . 45 108 , 1. , 2 . 24E-5 / 

C02 

>C-K* FROM KEYES-SENGERS 

DATA (TCCnF( I,5),I=l, 15) /. 9 86 1494 1 1 627 9794 E-2, 304.2, 

1.4640 , 1., 4., -4.699 , . 25 I 7032 8E- 1 , .29823104, .59310573, 

21 .5 38 5 0 <0,-6. 9 8446882, .42 26, 3. .4.03E-5/ 

C NE USING K-K^ FOR ARGON WITH NE XLAM AND 7C5 

DATA ( TCCOF( 1,6), 1=1, 15)/. 95859 , .244676E-2 , 44.4, .483, 

11 4. ,-1.7447 2 7, . 4732 535 76- 1 ,. 2 9305409 ,. 721 99889 ,l . 56 85 557 0, 

2-6.94 7 02507, . 45 108, 1. , 2. 6E- 5/ 

C CO USE N2 WITH CO CONSTANTS 

DATA (TCCOFI 1,7 ), 1=1, 15)/1. 127527, . 226934E-2 ,132.91, 

1.29 97, 1., 4.,- 1. 39 794, .513 72 790t-l,. I 7 1 55 947 ,. 39 312 360 ,1.56 022809, 
2-6.85 39 59 32, .3996 7, 2., 2.79E-5/ 

C HE 

DATA ( TCCOF( I , 8 ), I = I, I 5) / I . 536, . 25 79E-2 ,5 . 2 0693, l.,4. ,-1.744727, 

1.4732 5 357E-1, . 29305409, . 7 21 99889, 1 . 56855570 6 . 9478 250 7 ,. 4 5 108 , 1 . , 
25.E-5/ 

C F2 SETUP TO LOAD DIATOMIC CURVE FOR K* EVEN THOUGH IS NOT USED 

DATA ( TCC0FII,9), 1 = 1, 15)/ 1.02031, .19754E-2, 144. 31, .57375, 

I 1., 4. ,-1.301, .8474771,1.3197988, .47309461, 1.3532272, 

2-6. 3527256, .4625, 2.,!./ 
r LOAD CRITICAL R HO AND T FOR THERM AND H2 

DATA ( TCCDFI I , 10 ) , I = 1 , 15) / 1 . 4978 ,. 2 52 51 2E-2 , 3 2. 976 , .0 3143, l.,4., 

1- 1. , 2. 70581484, 4.30610645 , 1 . 88960889 , 1 . 26994786 ,-6 . 824285 39 , . 4 , 
22., .6l<74E-4/ 

DATA DI ST /3. 822, 3.681, 3. 499 , 3 . 42 1 , 3 . 952 , 2 . 82 , 3 . 59 , 2 .5 5 1 ,3. 357, 
12.928/ 

DATA EPSOK/.73E-2, 1.0 9 3E-2, 1. E- 2 , . 83 7E-2 , . 5E-2 , 3. 0488E-2, . 9066 E-2, 
19 .7 84 7 E-2, .88 816- 2, .0 27/ 

DATA WTMOL / 16 . 04, 28 . 0 16, 31 . 99 88 , 39 . 94 , 44 . 0 1 , 20 . 183 , 28 . 0 1 , 4 .003, 
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139,98» 2.C159/ 

DATA ZETA / .468 90513e-l , . 4O706245E- 1 , .HO I 

!• 2762 8636E-lf . 2 240739 4E-1 t . 47495F-1 » . 402 5^4t-l » . 38 4 3 1 . 268 525E-1# 
2 .40786245E-1/ 

04TA FF/ 1.015f 3*1.0i 1.02, 1.1, 1., 2.27, 1.0, 1.0/ 

DATA DTRIPL/. 57, 1.121, 1.400,1.415, 1.17, 1.247, .836, .21, 1.71, .11/ 
DATA S WT/ 1 13. , 2*68. ,86. , 2 16. ,25. ,70. , 6. 3 , 60. ,68 . / 

DATA KSWT /5» 1, 3^2, 2* 1/ 

DATA DIFTT/7*!.,. 1,2*1./ 

DATA R HO SWT/2 .5 , 2 . 2, 6* 2 . 4 , 2. 2, 2 . 2 / 

DATA AMUC/-.06, 0., .04, 2*0 • , 2*. I ,3*0. / 

DATA BMUC / . 07 , • 2, 0 • , . 2 , 0. , • 2 , 4* 0. / 

END 


COMPUTE PRESSURE P GIVEN TEMPERATURE T ANO DENSITY D. 

UVITS ARE SPECIFIED BY KU. IF KR IS RETURNED OR 
SPECIFIED AS I, P IS COMPUTED AT SATURATION AS A 
FUNCTION OF T ONLY. 

SUBROUTINE PR ESS( KU,T ,0,P ,KR I 
COMMON/ C0N123/ DCONV ( 5 > , TCONV( 51 ,PCQNV ( 5 I 

COMMON/BENO/ R ,CP 1,CP2,CP3,CP4,CP5,CP6 , C P7 ,C P8 , C F9 ,C PIO , 
ICPll, CP 12, CP 13, CP 14,:P15,CP16,CP17,CP18,CP19,CP20 
2 ,CP21,CP22,CP23,CP24 

COMMON /CHECK S/0CHI,D:H2, PCM I, PCM 2, PCH3, TCHl ,TCH2,TCH3 ,OST ,TST , 
IHSCH1,HSCH2 
COMMON/BENDIT/TS 
COMMON/HELFLU/ IHE, IFL, IHY 
COMMON /lERRDR/IROUT 
IR0UT»2 

DETERMINE REGION 

TS*TCHECK(KU,KR,T) 

T 2a 1 . 0 

IF (IHE.EO.I) T2=TS 
IF (KR-l) 10,70,10 
10 DSaOChECKIKU, D I 

IF (TS-TCH2) 20,20,50 
20 CALL DENS( 1,TS,ZE,ZE,DSL,DSV, II 
IF (OS-OSL ) 30, 60,40 
30 IF (DS-OSVI 50,60,60 
40 KR*2 

GO T3 80 
50 KP=3 

GO TO 00 

REGION 1 

60 KR=1 

70 CALL PSSSIPSI 
GO T3 90 

REGIONS 2 AND 3 
C 

80 Al* R*TS 
A2 a l./TS 
A3 = A2*A2 

A4=U < CP21*A2*CP5 I* A2K P 4 l*A2<'C P3) *A24'CP2<'CPl *TS 
A5=( CP23*A2*'CP8 I* A2KP 7«^ ( CP22*TS^CP6 I *TS 
A6 a CP9*TS*CP10 
A7= CP11*TS<-CP12 +-CP24*A2 
A8 = ( (CP 16*A2+CP 15)*A2+CP 14)*A3 
A9 = ( ICP19*A2KP 18)*A2+CP17)*A3 
v0l=EKP(-CP2O*OS*DS/T2 ) 

PS=U ( ( ( CP13*0SM74-A9*B 1)*DS^A6) *0 S^A 5* A 8*P 1 1 *0$i-A4 ) *DS^A1 ) *0S 
90 P=PS*PCONV(KU ) 

RETURN 

END 
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c COMPUTE TEMPERATURE T GIVEN PRESSURE P AND DENSITY D, 

C UNITS ARE SPECIflEO BY KU. IF KR I S RETURNED OR 

C 

SUBROUTINE TEMP(KU»PtO.T»KR I 

COMMON/ C0N123/ OCONVI 5Ir TCONVI 51 t PCONV(5 I 

COMMON/BENO/ R ,CP It CP2 »C P3t CP4f CPS t CP6 tCP7 tCPB t CP9 tC PIO » 

ICPllt CP12»CP13,CP XA,:P15»CPX6,CP17,CP18,CP19,CP20 
2 .CP2XtCP22#CP23,CP2A 
COMMON/HELFLU/ IHE, IFL» IHY 

COMMON/CHECKS/DCHXfOCH2»PCHX»PCH2fPCH3f TCHXtTCH2fTCH3 rOST fTST# 

IHSCHIt HSCH2 

COMMDN/BEN03/DSf A Xf A3#A4f A5f A6B f A7B fA8BiAX2 

COMMON /lERROR/IROUT 

IR0UT»3 

EXTERNAL TSF»DTSF 
PS«PCHECK(KUf KR»P ) 

C 

C DETERMINE REGION 

C 

IF (KR-U lOf 70#X0 
10 OSsXHECKiKUt D > 

IF (PS-PCH2I 20f20f50 
20 TS*TSS<PSI 

CALL OENS( X,TSfZE,ZE,OSL,OSV,XI 
IF (OS-DSL) 30f60,A0 
30 IF (OS-DSVI 50f60»60 
40 KR*2 

TS»TS-X0. 

IF i IHE.EO.U TS*3.0 
GO TO 80 
50 KR*3 
TS*TST 
GO TO 80 
C 

C REGION I 

C 

60 <R*l 

GO TO no 
70 TS«TSS(PS) 

GO TO XXO 

c 

c REGIONS 2 AND 3 

C 

80 Als 0S4CS 

A3 n(CPX3*DS^CPl2>*0S^CPX0>*0S*CP7>4DS^CPZI*AX -PS 

A4 * ( C nCPXX4DS+CP9)40S*'CP6)»D S*CPl»*DS«“RI ♦DS 

A5=(( CP24»AX«'CP8)*DSKP3I*AX 

A6B== (CP23*DS^CP4I*AX 

A78*CP5*AX 

A8B»CP2X*AX 

AX2 =2.*CP22*AX*DS 

TS=SOLVE( TS,TSF,OTSF| 

C 

C VER IFY REGION 

C 

IF (PS-PCH2)XX0f XX0,90 
90 IF (TS-TCH2) XOOt XOOt XXO 
XOO KR=2 

XXO T=TS*TCONV(KUI 
RETURN 
END 
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C CONPUTE DENSITY 0 GIVEN TEMPERATURE T AND PRESSURE P. 

C UNITS ARE SPECIFIED BY KU. IF KR IS RETURNED OR 

C SPECIFIED AS It THE SATURATED LIQUID AND VAPOR DENSITIESt 

C a AND OV RESPECTI VELYt ARE COMPUTED AS A FUNCTION 

C OF T OR P* THE OTHER VALUE MUST BE INPUT AS 0.0 • 

SUBROUTINE OENSIK Ut T, P ,0 ,DL ,OVt KR) 

COMMON/ C0N123/ OCONV C 5), TCONVC 5) ,PCONV< 5 ) 

COMMON /CHECKl/NI 

COMMON /BEND/ R t CP 1 1 CP 2 1 C P3tC P4tC P5 t CP6 tCP7 tCP8,CP9 ,CP13 t 
ICPli, CP12»CPl3tCP l4,CPl5,CPl6»CP17tCPl8tCPl9,CP20 
2 fCP2l,CP22,CP23tCP24 
C0MM0N/BEN013/Alt A4fA5,A6,A7tA8,A9tPS 
COMM0N/BEND15/A10rAll,A12f A13,A14 
C0MM0N/BEN017/TS 

COMMON/CHECKS/OCHl,DCH2fPCHl,PCH2f PCH3,TCH1 tTCH2 ,TCH3 , OST ,TST , 
IHSCHl, HSCH2 

COMMON /CO FMU/ EP SK t WM ,D I S i RHOC R T, ZE TAA 

COMMON/FELFLU/ IHEt IFL, IHY 

COMMON/SOL ID/OTRIP 

COMMON /lERROR/IROUT 

EXTERNAL DSF, OOSF 

IROUT = l 

IF UR.EO.l) GO TO 70 
TS=TCMECK (KUfKRtT » 

GO TO 5 

70 IF (T.GT.0.0) GO TO 75 
PS=PCHECK(KU#KR,P I 
TS=TSS(PSI 

IF U.LE.O.) T=TS*TCONV(KU) 

GO TO 5 

75 TS=TCFECK(KU, KR,T ) 

CALL PSSS(PS) 

IF (P.LE.O.) P=PS*PCONVIKU) 

5 T2»l.O 

IF UHE.EO.l) T2*TS 

COMPUTATIONS COMMON TO ALL REGIONS 

Al* R*TS 
A2= l./TS 
A3* A2*A2 

A4*( ( ( CP 21* A 2 KPS )♦A2^'CP 4 » ♦Aa^C P3I *A2*C P2 ♦C PI ^TS 

A5* (CP23^A2^CP8»*A2KP7^(CP22*TS<-CP6J ♦TS 

A6* CP9MTSKP 10 

A7* CP11^TS+CP12 K:P24*A2 

A8*(< CP16*A2<-CP 15)*A2«-CP14I*A3 

A9=(( CP19*A2»CP18)*A2*^CP17)*A3 

A10=-2.»CP20/T2 

AU=6.«CP13 

A12*5.MA7 

A13* 4. *46 

A 14* 2.*A4 

DETERMINE REGION 

I F (<R-1 ) lOi 80, 10 
10 PS*PCHECK(KU,KR,P ) 

IF (PS-PCH2) llOtllO, 100 
100 IF (TS-TCH2) 120,12C, 130 
120 <R=2 

EST*RHOCPT*.90 

CALL R00T(0CH2,BST,0. tOSF ,0$) 

GO TO 150 
130 KR=3 

EST*R H0CRT*3. 

CALL ROOT( EST, DCHltO. tOSF ,DS) 

GO T3 150 

110 IF (TS-TCH2I 20,20, 50 
20 CALL PSSSIPSS) 

IF (ABS( (PSS-PS >/PSSI-l.E«4) 60,30,30 
30 I F (PS-PSS) 50, 60,40 
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40 KR-2 
0S»DST 

IF (TS/TCH2.LT.,90,0^ •P$/PSS*LT..95*PSS> GO TO 90 
CALL 0GU€SS(TS»TCH2»DSt 
GO TO 90 
50 KR«3 

0S«.5*PS/<R*TS » 

GO TO 90 
C 

C REGION 1 

C 

60 RR»l 
60 CONTINUE 
OS*OST 
Tll*TCH2-TS 

IF( T11,LT.1.E-4I GOTO 84 
IF(Tll.LT..U GOTO 81 
CALL 0GUESS(TS,TCH2»0SI 
OSL«SOLVE(OS» OSFiDDSFI 
0S**5*PS/<R*TSI 
TII-TS/TCH2 

IF( T11.GT..985I DS=«*65*RH0C RT 
IF(Tll.GT..995) D S». 75*RH0CRT 
IFJ Tll.GT.,9991 0 S=».85*RH0CRT 
I F( TU .GT • .9995 10 S=*.90*RH0C RT 
DSV*SOLVECOS,DSF,ODSF I 
DL*DSL*OCONV(KUI 
DV*DSV*CCONV(KU» 

RETURN 

81 OL»RHOCRT*DCONV(KUI* 1.001 
0V»RH0CRT^DCDNV(KU)*.999 
C 

C THIS FIX IS APPLIED IN THE NEAR SUBCRITICAL AREA TO COMPENSATE FOR 

C THE FAILURE OF NE WTON-RAPHSON TO CONVERGE ON A DENSITY WITHOUT AN 

C ACCURATE ESTIMATE. PERHAPS ROOTX SHOULD BE USED IN THE REGION 

C T/TCRT .GT..99 TO PREVENT THIS PROBLEM 

C IF Y3U WANT AN ERROR MESSAGE WHEN THIS HAPPENS REMOVE THE C-S *=ROM 

C FOLLOWING THREE CAROS. 

C WRITE! 6«82l TS 

C 82 FORMAT! IH ,25H SATURATION CALL FOR TS* iFlO.T t65H IS TOO NEAR CRIT 
C IICAL. DL*1.001»RHOCRT 0 V*.999*RH0CRT I 

RETURN 

84 OL*RHOCRT*DCONV(KU) 

OV»DL 

RETURN 

C 

C REGIONS 2 AND 3 

C 

90 OS*SOLVE< DSf DSF,DDSF ) 

150 0*DS*DCONV(KU ) 

IF (DS.GT.OTRIP) WRITE!6tl52l T»P 

152 FORMAT! IH t 98H DENSITY SOLUTION IS BEYOND THE GRASP OF GASP. ANS 
IWER IS ON SOLID SIDE OF MELTING LOCUS FOR T = F9.0.6H P = ,F10.3 

23f4H MN. ) 

RETURN 

ENO 


C 

FUNCT ION CHECK! KUfKR ,T) 

COMMON/ C0N123/ DCONV ( 5) , TC ON V! 5) ,PCONV ! 5 ) 

COHM3N/IERROR/ IROUT 

COMMON /CHECK S/DCH It D: H2fPCH 1, PCH2 1 PCH3 1 TCHl t TCH2 1 TCH3 t DST tTST t 
IHSCHl, H$CH2 

DIMENSION FM1(9>, FM2!9), FM3!9J, FMT!9It R0UT(13) 

DATA FMl /51HUH tG12.4 , 31HI S OUT OF RANGE FOR T IN SJB.-,A6 I 
1 / 

DATA FM2 / 5 1H( IH ,G12.4 t3lHlS OUT OF RANGE FOR P IN SU8.-fA6 ) 
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1 / 

^DATA FM3 ,5 12.4 ,31HIS OUT OF RANGE FOR D IN SUB.-,A6 \ 

DATA ROUT /4HDEN S, 5HPRE SS, 4HTE MP , 4H6NTH , 3HE NT , 6 HTBMPPH, 6HT EMPPS 
It 5HS0N IC, 5HS^>C^f>, 5HSPCHV, 5HTHERM,4HVI SC ,4HSURF f 

C3NVERT TEMPERATURE T TO DEGREES KELVIN AND CHECK 
FOR OUT OF RANGE. UNITS ARE SPECIFIED BY KU. IF KR 
IS SPECIFIED AS 1, T IS CHECKED FOR OUT OF SATURATION 
RANGE. 

ENTRY TCHECK (KUfKR,T) 

CHECK =T/TCONV(KUI 

CHlsTCHl 

CH2=TCF2 

CH3=TCh3 

DO 1 J = l,9 

1 FMTU MFMKJ I 
GO TO 10 

CONVERT PRESSURE P TO ATMOSPHERES AND CHECK 
FOR OUT OF RANGE. UNITS ARE SPECIFIED BY KU. IF KR IS 
SPECIFIED AS 1, P IS CHECKED FOR OUT OF SATURATION 
ENTRY P CHECK ( KU, KR ,P | 

CHECK=P/PCONV(KU» 

CHl= PCHl 
CH2= PCF2 
CH3= PCH3 
DO 2 J = l,9 

2 FMTU ) = FM2( J ) 

GO TO 10 

CONVERT DENSITY D TO GRAM-MOLE S/LI TER AND CHECK 
FOR OUT OF RANGE. UNITS ARE SPECIFIED BY KU. 

ENTRY CCHECK ( KU,D I 
CHECK sD/DCONV(KU» 

CHlsOCFl 
CH3=DC>2 
DO 3 J*l,9 

3 FMTU >*FM3( J ) 

GO TO 20 

10 IFiKR.EO.n GO TO 30 
20 IF( CHECK .LT.CHl) GO TO 40 
IF( CHECK. GT.CH3) GO TO 40 
2 5 RETURN 

30 IF( CHECK .LT .CHI) GO TO 40 
I F( CHECK .LE.CH2 I GO TO 25 
40 WRITE! 6t FMT) C HEC K , R 0 UT ( I ROUT ) 

RETURN 

END 


C SAME AS POOTX - NEEDED TO PREVENT RECURSION 

C SOLVE FOR Xi SUCH THAT FUNC(Xl) = FOFX, WHERE XI LIES 

C BETWEEN XO AND X2 

C 

SUBROUTINE ROOT ( XO , X 2 , F OF X , F UNC , Xi I 

COMMON /CHECK l/KO LINT 

T0L = 1 .E-5 

XXO = XO 

XX2 = X2 

FO = FUMC( XXO ) 

P2 = FUNC(XX2) 

A=( FOFX-FO)/( F2-F0) 

I F ( A ) 1007, 120, 120 
120 IF ( A- 1. ) 130, 130, 1008 
130 I F ( FOFX-0. ) 80,70, 80 
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70 ASSIGN 100 TO JU»4P 
GO TO 90 

80 ASSIGN no TO JUMP 
90 X=( XX0^XX2J*.5 

KOUNT * 0 
150 XI * X 

KOUNT « KOUST ♦ 1 
A * FOFX - F2 
FX * FUNGI XI 

FXL-F04IX-XXO )*<F2-FO)/(XX2-XXOI 
B=ABSI ( FX-FXt )/(F2-F0» > 

IF (A»(FX-FOFX> «LT. 0.1 GO TO lOOl 

XXO = X 

F0»FX 

IF CB-.3I 10, 20,20 
20 X»(X*XX2I*.5 

GO TO 40 
1001 XX2 = X 
F2 * FX 

IF ( B-.3I 10, 30,30 
30 X«IXX04XI*.5 
GO TO 40 


10 X*XXO + (FOFX-FOI*(XX2-XXO /(F2-F0) 

40 IF (ABSnX-Xll/Xl-TOL I 50,1000,1000 
50 GO TO JUMP, ( 100, 1101 
100 IF «ABS( FUNC<Xn-TDt*10. 160,1000,1000 
110 IF (ABSU FOFX-FUNC(XI)/FOFX)-TOl I 60,1000,1000 
1000 IF (K0UNT.GT.40I T0L=TOt*10. 

IF (KOUNT. GT.60I T0L*T0L*10. 

IF (KOUNT. GT. 801 T0L*T0L*10. 

IF (KOUNT.lt. 1001 GO TO 150 

160 WRITE (6,1701 XI, X ^ 

170 FORMAT (1HL,79HAN ITERATION HAS BEEN TERMINATED AT 100 ITERATIONS. 
1 THF LAST TWO VALUES WERE ,3G15.5) 

60 K1»X 


RETURN 

1007 X 1 = XO 
GO T3 140 

1008 XI * X2 

140 WRITE! 6, 1411 

141 FORMAT! IHO, 24H SOLUTION OUT OF RANGE I 

RETURN 

END 


SOLVE FOR XI SUCH THAT FUNC(X1I = FOFX, WSERE XI LIES 
BETWEEN XO AND X2 

SUBROUTINE ROOTX( XO,X 2,F0FX,F UNO ,X1 ) 

COMMON /CHECK2/K3UNT 

T0L*l.E-5 

XXO = XO 

XX2 = X2 

FO * FUNC(XXOI 

F2 = FUNC( XX2 ) 

A=( FOFX-FOI/( F2-F0I 
IF (A I 1007, 120,120 
120 IF (A-1.1 130,130,1008 
130 IF (FOFX-0.) 80,70, 80 
70 ASSIGN 100 TO JUMP 
GO TO 90 

80 ASSIGN 110 TO JUMP 
90 X=( XXO*XX2)*.5 

KOUNT = 0 
150 X 1 =* X 

KOUNT = KOUNT ♦ 1 
A = FOFX “ F2 
FX = FUNC(XI 
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FXL*F04(X-XX0I*(F2-F0I/<XX2-XX0) 

B«ABS< C FX-FXL )/<F2-F0) > 

IF (A*(FX-FOFXI .LT. 0.1 GO TO 1001 

XXO » X 

FO*FX 

IF (B-.3) L0f20«20 
20 X«( X«>XX2 l*.3 

GO T3 AO 
lOOl XX2 * X 
F2 = FX 

IF (B-,31 10,30,30 
30 X*( XKO+X |*.5 

GO TO AO 

10 X*XXO^I FOFX-FOI*! XX2-XXCI /(F2-F0> 

AO IF (ABS((X-X1I/X)-T01. I 50,1000,1000 
50 GO TO JUMP,! 100,110) 

100 IF (ABS(fUNCIX))-TOt*lO. ) 60, 1000, 1 000 
110 IF (ABSM FOFX-FUMC(X) l/FOFX)-TOL ) 60,1000,1000 
1000 IF (XOUNT.GT.AO) T0L*T0L*10. 

IF (<OUNT.GT.60) T0L»T0L^10. 

IF CKOUNT.GT.80) TOLaTOL^lO. 

IF (KOUNT.lt. 100) GO TO 150 
160 rfPITE (6, 170) XI, X 

170 FORMAT (1HL,79HAN ITERATION HAS BEEN TERMINATED AT 100 ITERATIONS. 

1 THE LAST TWO VALUES WERE ,3G15. 5) 

60 X 1«X 
RETURN 

1007 X 1 = XO 
GO TO lAO 

1008 X I * X2 

140 WRITE(6, 141) 

141 FORMAT! lhO,24H SOLUTION OUT OF RANGE ) 

RETURN 

END 


NEWTON-RAP HSON ITERATION GIVEN AN INITIAL ESTIMATE XI 
AND THE FUNCTIONS F AND OF 

FUNCTION SOLVE! XI ,F,DF I 

COMMON /CHECKl/NI 

T0L=l.E-5 

N 1=0 

XO=XI 

XN=X! 

10 XOO=XO 
XO=XN 

XN=XO-F(XO)/OF(XO ) 

12 NI=NI + 1 

IF (A8S((XN-X0)/XN)-T0L ) 70,20,20 

20 IF (NI.GT.40) TOL=T0L*10. 

IF (NI.GT.60) T0L=TDL*10. 

IF (NI.GT.80) TOL=TOL*lO. 

IF (Nl-ltO) 30,50,50 
30 IF (A8S( ( XN-XOO )/XN l-TOL ) 40,10,10 
40 XN=(X04XN )/2. 

GO TO 10 

50 WRITE (6,60) XOO,XO,XN 

60 FORMAT (IHL,81HAN ITERATION HAS BEEN TERMINATED AT 100 ITERATIONS. 

I THE LAST THREE VALUES WERE ,3G15.5) 

70 SOLVE=XN 

I F (XN.GE.O. ) RETURN 
SOLVE = X I 
WPITE(6,75) XI 

75 FORMAT! IH ,82H N-P ITERATION DIO NOT FIND A VALID ANSWER. INITIAL 
I ESTIMATE RETURNED AS ANSWER. E12.6) 

RETURN 

END 
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SUBROUTINE SPL INA < X tV tNX» Tt NTt VI NT »KFD t KE RROR ) 

OINENSION X(ll» Y(ntTm«YINT<U»U(50lfXMai 
EQUIVALENCE (XMCIlt U(ll) 

NXNl* NX- 1 
NXPl « NX^l 
H» X( 2 )-X< n 
KERR0R«0 
H2 » H*H 
YINT( ll» ,5 
U( 0. 

DO 10 I«2fNX«U 
P» .5*YINT< I-1I+2. 

Y INT( II» - .5/P 

0 » 3.«UY(I^ll-Y<IM-<Ym-Yn-im/H2 
10 J(II« (C-<.5*U< i-in/p 
P «-.5*YlNTINXMlUl. 

YINT( NX»* 0. 

UINX>» .5*U(NXMU/P 
KH(NX I « U(NX ) 

DO 20 I«2ffNX 
K» NXPl -I 

20 XH(K>« YINTIK )*XHIK«^ll>U(K| 

DO 90 1*1, NT 
K*2 

IF(T( Il-X( 11)60,85,70 
60 WRITE<6,600) T(U, X(l), XfNX) 

600 FORNAT( IHL, AOM A^ ER^OR OCCURRED DURING INTERPOLATION / 

1 96H THE X WHERE INTERPOLATION DESIRED (XINT) IS OUT OF 

2RANGE. THE ROUTINE HILL TRY TO EXTRAPOLATE./ 6H XINT*G15.7, 6H 
3 X(U=G15.7, 6H XINI*G15.7 I 
K ERROR * KERRDR+1 
GO TO 85 

70 IF(T( I)-X(Kn 85, 85,80 

80 K* K4-1 
IF(K-NX) 70,70,81 

81 XERROR « KERROR^l 

WR1TE< 6,600) Tin, X(I), XINXI 
K*NX 

85 IF (KFO) 40,60,50 

40 Y INTI n»<XH( <-l)*(X(K)-T(IM**3«-XH(K)*(T( I)-X<K-1) I ** 3 ^ 16. AYI K-U- 
IX M( K- l|4H2)4( X(K)-T( I ) !♦( 6. *Y ( K ) -XM I K) 4H2 ) ♦ ( T U 1-XI K-1 1 ))/ <6.*H) 

GO TO 90 

50 Y INTI I )*(-XN(X-l»*<X(K)-T(I n♦♦2/2. «>XM(K) ♦(TI 1 1 -X( K-l) ) 4*2 / 2. 

IY(K )-Y(K-l)-( XMIK l-XNIK-U )*H2/6. I /H 
90 CONTINUE 
RETURN 
END 


EVALUATE THE POLYNOMIAL IN X DESCRIBED BY COEF 

FUNCTION POLYCX,COEF» 

OIMB^SION COEFI 1) 

XS*X 

NRANGE=COEF( ll^.l 
NDEG=COEF< 2H>. 1 
IST£P*N0EG+2 
ITESr*3*NRANGE4ISTEP 
IF (X S-COEFI 3) ) 10,20,20 
20 IF (X S-COEFI ITEST M 30,30,40 
30 IBEG=34ISTEP 

IENO=ITEST-ISTEP 
DO 50 I^IBEG, lENO, ISTEP 
IF (XS-CQEFI I ) ) 60,60,50 
50 CONTINUE 
I=ITEST 
GO TO 60 
10 I=3^ISTEP 
GO T3 70 
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40 I-ITEST 
70 WRITE(6t7U XS 

RANGE OF CURVE FIT VALUE IS EXTRAP 

lOLATEO*^ I 

60 I8EG»I-1STEP^2 
lENO* IBEG^NOEG-1 
POLY=COEF( IBEG-ll 
DO 80 1*IBEG»IEN0 
00 P0LV»P0LY*XS^C0EF(I I 
RETURN 
END 


SUBROUTINE OGUE SSI TSr TCR » DSTI 
COMMON/COFMU/EPSK,WM,D ISfRHOCRTf ZETAA 
TEST*TS/TCR 

IF ITEST •GT..9I 0ST*RH0CRT*1. 75 
IF ITEST .GT.^96)0ST*RH0CRT*l, 60 
IF (TEST ,GT ..98 )DST=RH0CRT*1. 50 
IF ITEST .GT..993I0ST * RH0CRT*1.4 
IF (TEST .GT..998)0ST * RH0CRT*1.30 
IF (TEST .GT..999) DST*RHX RT*1. 2 0 
IF (TEST .GT. .99951 D ST-RHX RT*1. 1 0 
IF (TEST .GT..9999) D ST*RHOC RT^ 1. 05 
RETURN 
END 


FUNCTION USED TO SOLVE FOR SATURATION TEMPERATURE TSS 
GIVEN PRESSURE 

FUNCTION TSSF(TSSI 

COMMON/COSAT/ CPS I t CP S 2,CP S3,CP S4,C P S5 , CPS6 , CPS7 
C0MM0N/B£N09/Al,A2»A3f A4,A 5 

TSSF*I (( (CPS7*TSS*CPS6)*TSS^'CPS5)*TSS«>CPS4I *TSS+CPS3» ♦TSS ♦CPS 2/ 
ITSS^Al 
RETURN 

DERIVATIVE OF FUNCTION USED TO SOLVE FOR SATURATION 
TEMPERATIWF TSS GIVEN PRESSURE 

ENTRY CTSSFITSSI 

OTSSF-I ( ( A2<«TSS+A3)^TSS+A4»^TSS^A5I^TSS>CPS3-CPS2/ (TSS^TSS ) 

TSSF=OTSSF 

RETURN 

END 


FUNCTION USED TO SOLVE FOR TEMPERATURE TS GIVEN PRESSURE 
AND DENSITY 

FUNCTION TSFITSI 

COMMON /BEND/ R t CP 1 1 CP2 »C P3, C P 4»C P5 ,C P6 ,C P7 tC P8 # C P9 , C P13 ♦ 

ICPl 1, CP I2,CP 13,CP 14,:P 15,CP 16,CP17,CP18rCP19,CP20 
2 ,C^>21*CP22,CP23,CP24 
COMMJN/FEL FLU/ IHEt IFL, IHY 
C0MM0N/BEN03/DS»A 1,A3,A4,A5,A6B *A7B,A8B , A12 

r 2=1.0 

IF ( IHE.EO.ll T2=TS 
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A2» DS ♦ EXP< -CP 20*0 S*DS /T2I 

A6A*( CPITAA IKP 1AI*AI*A2 

ATA*I CP10AAIKP15I*AI*A2 

AaA»C CPX9AAIKP 16IAA10A2 

A 6 >A 6 A 4 ^A 6 B 

A7> A7A4A7B 

A8«A8A^A8B 

A9 * 2.AA6 

A 10 * 3 ,*A 7 

All* A.*A6 

Bl*l*/TS 

B2»B1«61 

A 13^0.0 

If (IhE.EQ.U A13«<A6A4^A7A*B1«A8A«B2>*CP20«AL«62«B2 

TSF*( ( C A8*01»A7I*BH'A6I*B1>A5)*8H^(CP22ATS*AI ♦DS+AA •♦TS^A3 

RETURN 

DERIVATIVE Of FUNCTION USED TO SOLVE FOR TEMPERATURE TS 
GIVEN PRESSURE AND DENSITY 

ENTRY CTSFITSI 

OTS F* A A^A 1 2^T S- ( ( ( A I l*B l^A 10 ) *6 A 9) ♦Bl ♦ A5 ) ♦B 1 * Bl^ A 13 

TSF*DTSF 

RETURN 

END 


FUNCTION USED TD SOLVE FOR DENSITY OS GIVEN TEMPERATURE 
ANC PRESSURE 

FUNCTION DSFIDSI 

CO'IMON/BENO/ R ,CP IfCP2iCP3#CPA#CP5fCP6 »CP7 tCPB »CP9 ,CP1D » 
ICPllf CP12,CP13fCP 1A,CP l5»CP16,CP17rCP18fCPl9,CP20 
2 ,CP21f CP22»CP23fCP2A 
C0MM0N/BEND13/A1, AA»A5*A6#A 7,A8f A9,PS 
COMMON/BEND15/A10»A11»A12»A13,A1A 
COMMON/HELFLU/ iHEt I«=L# IHY 
C0MM0N/BEND17/TS 
T2*1.0 

IF ( IFE.EQ.ll T2=TS 
B l«EX P(-CP20*DS*DS/T2 I 
82« A8*B1 
B3» A9A61 

OSF=< ( ( < (CP l3*DS*A7^e 3KDS+A6I ♦OS*'A5+B2 ) ♦DS^-AA) AOS^ Al ) *0S- PS 
RETURN 

DERIVATIVE OF FUNCTION USED TO SOLVE FOR DENSITY DS GIVEN 
TEMPERATURE AND PRESSURE 

ENTRY CCSFI DS » 

DOS F=C I ( ( ( A10AB3*DS<-A 1 1 S>A 12+ ( 5. ♦A9+A10^A8 ) *BU ♦DS+AIBI *0S 

♦ +3.*( A5+A8*B n )*DS+A lAI^'OS+AX 
DSF=OCSF 
RETURN 
END 


C COMPUTE SATURATION PRESSURE PSS GIVEN TEMPERATURE 

C 

SUBROUT INE PSSS(P SS ) 

C0MM0N/BEND17/TS 

COMMDN/COSAT/ CPS 1 ,CPS2tCPS3 iCPSAf CP$5 t CPS6 #CPS7 

PSS=lO.+*< ( ( i (CPS7»TS+CPS6>*TS+CPS5>*T$+CPSA> ♦TS+C PS3 I ^TS + CPS2/ TS + 
ICPS 1) 
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PSS=PSS*. 101325 

RETURN 

END 


C OHPUTE SATURATION TEMPERATURE GIVEN PRESSURE PS 

EUNCriON TSSIPSI 

COMMON /CHECKS /OCH 1C U f DCH 2t PCHl t PCH2 1 PCH3 f TCH I ,TCH2 tTCH3 »OST t TST t H 
IS CHI, HSCH2 

COMMON /CO SAT/ CPS 1 ,CPS2,CPS3,CPS4,CPS5 , CPS 6, CPS 7 

COMMON/BEND9/Al,A2,A3,A4,A5 

EXTERNAL TSSF,OTSSF 

PSl«PS/. 101325 

AI»CPS1-ALOG10(PS1I 

A2*5.*CPS7 

A3«4.*CPS6 

A4*3.*CPS5 

A5«2.*CPS4 

TESTM»PS/(PCH1-PCH2)*( TCH2-TCH11^TCH1 -10. 

IF (TESTM.lt. TCHII TESTM^TCHl 
TSS*SOLVE(TESTM,TSSF,OTSSF) 

RETURN 

END 


SUBROUTINE TEMPPH(KU,P,H,T,0,DL ,DV, KR) 

COMMON/CON123/OCONV( 5I,TC0NV( 5> ,PC0NV(5I 
C0MM0N/C0NV6/HC0NV( 51 
C0MM0N/BEN031/PS 
C0MM0N/BEN033/HS 

COMMON /CHECK S/DCH1,0:h 2, PCH 1, PCH2,PCH3 , TCHl t TCH2,TCH3 ,DST ,TST , 
IHSCHlf ^SCH2 
COMMON / lERROR/IROUT 
I ROUT = 6 
EXTERNAL TSHF 
PS=PCHECK(KU, KR ,P I 
HS=H/HCONV<KU I 
IF <HS-HSCH1) 20, 10,10 

10 IF (HS-FSCH2) AO, «0,20 

20 WRITE! 6, 21) HS 

21 FORMAT( 1H0,E14.6,40H INPUT H IS OUT OF RANGE — CALC.CONT. 

40 IF (PS-PCH2) 140, 140|130 

130 TSl^TCFl 
TS2=TCF3 
GO TO 110 

140 CALL TEMPI 1,PS,ZE,TS, II 
IF (<R-n 50, 70, 50 

5 0 CALL ENTH< 1, 1, TS, P S ,ZE , ZE , H SL ,H $V) 

IF (HS-FSL • 90,70,60 

60 IF (HS-FSVI 70,70,100 

REGION 1 

70 KR=l 

80 CALL D6NS(l,TS,Ze,ZE,0SL,DSV,ll 
DL = OSL^DCONV( KU I 
DV=OSV*DCONV( KU I 
GO TO 120 

REGION 2 

90 KR=2 

TSl^TCFl 
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PS*PS»1.0001l 
TS2* TS-l.E-5 
GO TO 110 
C 

C REGION 3 

C 

100 KR»3 

TSl* TS41.E-5 
PS» PS**99<?88 
TS2»TCH3 
C 

C REGIONS 2 AND 3 

C 

110 CALL ROOTXi TSlrTS2fHS,TSHF,TSI 
CALL OENSI If TS,PSfOSfZE»ZE»KR J 
0*0S*0C0NV<)CU » 

c 

c VER !FY REGION 

C 

IF (PS-PCH2) 120fl20fl50 
150 IF (TS-TCH2I 16Cf 160f 170 
160 <R=2 

GO TO 120 
170 KR»3 

120 T«TS*TCONV(KU) 

RETURN 

END 


SUBROUTINE TEMPPS < KU # P t S » T |D f DL »0 V ,KR ) 

CO'^ION/ C0N123/ DCONV< 5>f TCONV( 5) fPCnNV(5l 
C0MN0N/C0NV4/ SCDNVC 5) 

COMM0N/BEN031/P5 
CONHON /BEND55/SS 

COMMON/CHECKS/DCHlf DCH2fPCHl,PCH2f PCH3f TCHl ,TCH2f TCH3 t DST t TST t 
IHSCHl, FSCH2 
COMMON /lERRDR/IROUT 
I ROUT *7 
EXTERNAL TPSF 
PS=P*CHECK(KUf KRfP I 
SS = S/SCONV(KU> 

AO IF (PS-PCH2I lAOt lAOf 130 
130 TS1=TCF1 
TS2-TCH3 
GO TO 110 

lAO CALL TEMPI lfPSf?E,TS, II 
I F (KR-l I 50i 70i 50 

50 CALL ENT ( lfl,TSfPS,ZE , lb ,SSL,SSV ) 

IF ( SS-SSL I 90,70t60 
60 IF < SS-SSV) 70,70fl00 

REGION 1 

70 KR= 1 

80 CALL OENSI lfTS,ZE,7E,DSLfOSV,l» 

OL=OSL*CCONV( KU I 
OV=CSV*CCONV( KU ) 

GO TO 120 

REGION 2 

90 KR=2 

TSl^TCFl 
PS=PS*1.0C011 
TS2= TS-l.E-5 
GO TO 110 
C 

C REGION 3 
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c 


100 KR=3 

TSl* TS^l.E-5 
PS= PS*.<?9988 
TS2=TCI-3 
C 

C REGIONS 2 AND 3 

C 

110 CALL ROOTX { T$ 1 , T S2, S S , TP SF , TS ) 
CALL CENS(l,TS,PS,OStZE,ZE,KR» 
0=DS*CC0NV(KII J 
C 

C VER IFY REGION 

C 

IF (PS-PCH2I 12C, 120, 150 
150 IF (TS-TCH2) 160,160,170 
160 KR=2 

GO TO 120 
170 KR=3 

120 T=TS*TCONV(KU ) 

RETURN 

END 


FUNCTION TSHF(TS» 

COMMON/0EMO31/PS 
C0MM0N/BEN033/HS 
KR = 0 

CALL OENS< 1,TS,PS,DS,7E,7E,KR| 

CALL ENTH( 1, <R , TS , P S , DS , H SC , ZE , ZE > 

TSHF=HSC 

RETURN 

ENTRY TPSFITSI 
COMMON /BEND55/ SS 
KR = 0 

CALL DENS ( I, T S, P S ,0 S , ZE , ZE , KR ) 

CALL ENT i l,KR,TS,PS,DS,SSC,ZE ,ZE> 

TSHF = SSC 

RETURN 

ENO 


COMPUTE ESITHALPY H GIVEN TEMPERATURE T, PRESSURE P, AND 
DENSITY D. UNITS APE SPECIFIED BY KU. REGICN IS 
SPECIFIED BY KP. IF KR IS SPECIFIED AS I, THE SATURATED 
LIQUID AND VAPOR ENTHALPIES, HL ANO HV RESPECTIVELY, 

ARE COMPUTED AS A FUNCTION OF T ONLY. 

SU3R0UTINF EN TH ( K U , KR , T ,P ,0 ,H ,H L ,H VI 
COMMUN/CONV6/HCON V( 51 
COMMON /BEND17/TS 
COMMON /BEND23/0SL,DSV 
COMMON /8EN029/HSL, HSV 
COMMON /lERROR/IROUT 
IROUT = ^ 

T S^TCFECK (KU, KR ,T ) 

PS=PCHECK( KU, KR ,P I 
IF (KR.NE.ll DS=DCHECK(KU,D I 
GO TO ( 10, 20, 30 I, KR 

REGION 1 
C 

10 CALL H5LV(PS ) 

HL~H$L ♦HCnNVf KU ) 

HV=hSV*HCOMVr KU ) 
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R EfURN 
C 

C REGION 2 

C 

20 CALL PSSS( PSS » 

CALL HSLVIPSS ) 

HS =* HSL+ PS/DS-P SS/D$L+HOINT(DSiDSU 
GO T3 AO 
C 

C REGION 3 

C 

30 HS-HSS(PS»DS> 

AO H=HS^HCONV(KU I 
RETURN 
END 


C FUNCTION USED T3 COMPUTE SATURATED LIQUID ENTHALPY 

C FROM SATU'^ATEO VAPOR ENTHALPY OR SATURATED LIQUID ENTROPY 

C FROM SATURATED VAPOR ENTROPY GIVEN PRE SSUE PS AND 

C TEMPERATURE 

C 

FUNCTION HSSLVF(PS) 

COMMQN/COSAT/ CPS I ,CP S2i C PS3,CPSAf CP S5 f CPS6 i CPS7 

C0MM0N/BEND17/TS 

C0MM3N/B BN 023/0 SL ,OSV 

0P0T-2.3025 8509*PS* M ( ( 5. *C P ST'^ TS+- A. >^0 P S6I »TS^-3 .*C PS5 ) ♦TS* 
12.*CPSA»*TS+CPS3-CPS2/( TS»TS> ) 

HSSLVF = CPDT*< 1 . /D S V- I . /DSU 

RETURN 

END 


C C3MPUTE SATURATED LIQUID AND VAPOR ENTHALPIES GIVEN 

C PRESSURE PS AND TEMPERATURE 

C 

SUBROUT INE HSL V(PSI 

COMMON/BEND17/TS 

C0MM0N/8END23/0SL fOSV 

COMMON/BEND29/HSL,HSV 

CALL DENS( l,TSfZE»ZE,DSL,OSV,l) 

HSV=HSSCPSf DSV> 

HSL=HSV-TS*HSSL VF (PSI 
RETURN 
C 

ENTRY SSLVIPS) 

C 

C COMPUTE SATURATED LIQUID AND VAPOR ENTROPIES GIVEN 

C PRESSURE PS AND TEMPERATURE 

COMMON /BEN021/ SSL »SSV 
CALL DENS( It TSf ZE,ZE*DSL,0SV,1) 

SSV=SSS(PS,OSV) 

SSL=SSV-HSSLVF{PS I 

RETURN 

END 


C COMPUTE ENTROPY S GIVEN TEMPERATURE T, PRESSURE P, AND 

C DENSITY 0. UNITS ARE SPECIFIED BY KU. REGION IS 

C SPECIFIED BY KR. IF KR IS SPECIFIED AS It THE SATURATED 

C LIQUID AND VAPOR cNTRQPIESt SL AND SV RESPECTIVELY, 
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c 

C 


ARE COMPUTED AS A FUNCTION OF T ONLY 


SUBROUTINE EN T ( KU t KR , T , P , D , Sf SL t SV> 

C0MM3N/BEND/ R t CPltCP2 ,CP3,CP4»C P5,CP6 ,CP7 tC P8 , CP9 , CPID , 
ICPll, CP12fCPl3,CP 14,CP l5tCPl6fCPl7,CP10,CP19,CP2O 
2 »CP2 ltCP22f CP23,CP2A 
COMMON /BEND2 1/S SLtSSV 
COMM3N/0ENO23/OSL,DSV 
COMMON/8EN017/TS 
COMMON/CONV4/SCONV( 5) 

COMMON / lERROR/IROUT 
I ROUTES 

TS=TChECK<KUf KR,TI 
PS=PCHECKIKUf KR,P ) 

IF (KR.NE.U DS=DCHECK(KUfD I 
GO T3 (10,20f 30)»KR 

REGION 1 

10 CALL SSLV(PS> 

SL = SSL^SCONV( KU I 
SV=SSV*SCONV(KU) 

RETURN 

REGION 2 

20 CALL PSSS(PSS) 

CALL SSLV(PSS» 

SS » SSL ♦ R* (ALDGinSL )-ALOG(DS) ) SOI NT(DSr OSL> 

GO TO AO 

REGION 3 

30 SS=SSS(PS,DS> 

AO S=SSASCONV(KU J 
RETURN 
END 


COMPUTE THE INTEGRAL IN THE ENTHALPY COMPUTATION FROM 
DENSITY OSL TO DENSITY DS 
FUNCTION HDINT(DS,DSL > 

C0MM1N/BEND/ R , C P 1 , C P2 tC P3 , C P A, C P5 ,C P6 ,C P7 ,CP8,CP9 ,CP13 ♦ 

ICPl U CP12f CP13f CP 1A,CP l5fCP 16,CP17,CPI8,CP19,CP20 
2 *CP2 1,CP22,CP23,CP2A 
COMM0N/BEN017/TS 

COM MON /BEN D27 /A 3, AA,A5,A6»A7,Aa»A9,A10iAll,A12,A13 

C0MM3N/HEL FLU/ IHE, IFL, IHY 

T2=l.O 

IF < IHE.EO.ll T2=TS 
Al= L./TS 
A2= Al^Al 
A3=«.5^A2»T2/CP20 

AA=(( ( 5.*CP21*A1+A.*:P5)*A1^3*»CPA)«AU*2.*CP3) ♦A1^“CP2 

A5=( -CP2 2/A2«‘CP 74-2.»: P 8^A U 3.*C P 23«A2 ) ♦. 5 

A 6= ( 5. ♦CP 16* & 1 + A**CP 15)*A M-3.+CP1A 

A 7= I S.*CP19*4 1*A.*CP18)*A1^3.*CP17 

A8=CP 10*. 3333333 

A9= ( CP12*2.*CP2A*A1)*.25 

AlO = CP 13*. 2 

All=T2/CP20 

A12= ( ( CP16*A l*CP 15 )*A l*CP lAI *A2 
A13= ( ( CP19*fi IKP 18)*A 1*CP17J*A2 
HDINT = HCIMTF( OS )-HOINTFfOSL ) 

R ETURN 

ENTRY SDINT(DS,DSL ) 
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COMPUTE THE INTEGRAL IN THE ENTROPY COMPUTATION FROM 
DENSITY OSL TO DENSITY OS 
T2*1.0 

IF ( IHE.EQ.U T2=TS 

Al=l./TS 

A2«A1*M 

A3*(( ( 4.^CP21*AH“3*«CP5)*A1»2.*CP^)*AI^CP3)*A2-CP1 

A4^(-2.^CP22»TS-CP6M 2.*CP2 3*A UCP 8I*A2 I *.5 

A5=(4.^CP16*A lf3.*CPl3>*A 1<-2.*CP14 

A6=( 4.*CP19*IV 1*3.*CP18I*AU2.*CP17 

A7*-.5^A2/CP20*Al*T2 

A8*-CP9*. 3333333 

A9= I - CP 1 1>CP 2 A*A 2 )♦ . 2 5 

A10=T2/CP20 

A12= ( (CP16*A1*CP 15I»A1«*CP1AI*A2 
A13= ( ( CP19*A l^CP 18 )^A 1>CP17)*A2 
SCINT*SCINTF( OS)-SD INTFOSL ) 

HDINT=SDINT 

RETURN 

ENn 


FUNCTION USED T3 COMPUTE THE INTEGRAL IN THE ENTHALPY 
COMPUTATION BASED ON DENSITY OS 

FUNCTION HOINTFIDSI 

COMMON/BENO/ R ,CP I » CP 2 #C P3 1 C P C P5 1 C P6 iC P7 »C P8 # C P9 »C P13 » 

ICPl If CP I2f CP 13*CP I4f CP 1 5, CP 16, C P 1 7 ,CP I 0 # CP 1 9 » C P20 
2 ,CP21#CP22,CP23f CP2A 
COMMON/HELFLU/ IHE, IFL, IHY 
CO'<MON/BEND17/TS 

COMMON/B£ND27/A3f A A, A 5, A6, A 7, A 8, A9, AlO , A1 1 1 AL 2 , AL3 
T2= 1.0 

IF ( IHE.EO.l) T2*TS 
ai=DS*cs 

B2 = EXP(-CP20*B1/T2I 
A 15=0.0 

IF (IHE.EQ.U A15=(A12^(8UA11M'A13*( (Bl^2.*Ain*Bl+2.*All*ALl) ) 
1*82^.5 

HDINTF = ( ( ( ( A10*0S4-A9)*0S4-A8)*DS*A5) ♦OS^AAI+DS 

♦ >A3*82*( A6*-A7»(B l^All lUAl 5 
RETURN 

FUNCTION USED TO COMPUTE THE INTEGRAL IN THE ENTROPY 
C COMPUTATIDN BASED ON DENSITY OS 

C 

ENTRY SOINTF( DS ) 

T2=1.0 

IF ( IHE.EO. II T2=TS 
B1=CS*CS 

82= EXP(-CP20*B1/T2I 
A15=0.C 

IF( IHE.EQ.U A15=A12^fl2* . 5* (B 1/T2*-1 . /CP20UAL 3*B2* ( .5»B1^81/T2 

♦ ♦( ei+A10)/C320) 

SDINTF = (((A9*DS^A8I*0S^AA)»D$ + A3)*DS^B2*A7*(A5<‘A6^(BI + A10))*-A15 

HDlNTF^SniMTF 

RETURN 

END 


CJHPUTE ENTHALPY IN REGION 3 OR SATURATED VA PUP ENTHALPY 
GIVEN PRESSURE PS, DENSITY DS, AND TEMPERATURE 

^U'iCTION HSS(PS,nS) 

P ,CPl,CP2fLP3,-R^»CPH,CP6,Cf‘7 ,CP0,CP9,CP13» 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ICPl If CP12fCP13fCP14fCPl5fCP16fCP17fCP18,CP19f CP2D 
2 f CP21fCP22,CP23f CP24 
C0HM3N/^ELFLU/ iHEt I FL , IHY 

COM»^ON/COCPQ/TO fCCOPlf CC0P2f CCOP3fCCOP4tC: OP5 
COHMON/BEND17/TS 
COMH3N/BEND25/ AlfA2fA3f^4 
COM>10N/HYDRD/O£LHfOELS 

COMMON /REFND/ SO TO t HOTOfCPOCORf HTERMf STE RM 

HTINTF( TX > = ( ( ( ( 2 )♦ TX + A3) ♦TXi* A4) *TX^CCOPl ) ♦TX 

STINT F<TX ) = ( ( ( A l^TX^'A 2 )*TX + A3) ♦TXf CCQP2 I * TX+S C OPl» A LOG ( TX ) 

0ELH=0.0 

IF (IHY.EQ.n CALL SETCPO(TS) 

Al=CC0P5*.2 
A3=CCOP3*. 3333333 
A4=CC0P2**5 
A2=CCOPA**25 
HTERM 1 = HTINTF< TS) 

HSS = HOTO ♦( PTERM l^DELH-HTE R M ) *0 POCOR<-P S/DS-R^T HO I NT (OS #0 ) 
RETURN 


GIVEN PRESSURE PSr DENSITY DSt AND TEMPERATURE 
COMPUTE ENTROPY IN REGION 3 OR SATURATED VAPOR ENTROPY 


ENTRY SSS(PSfDS) 

TFE TERM R*LN(RTO) IS NDT 01 MFNSIONLE SS CONSEQUENTLY 
SHOULD BE R*LN(RTO*CONVI = R*LN(CONV) R^LN(RTD) 

THEREFORE ADO THE TERM R*LN(CONV) 

ATM-L ITER /( GM-MQl E K) OINNS VALUE I MPL 
PSIA-CC/(GM K) CONV= 

J/(GM K) CONV= 

THE CORRECTION BECOMES 

. 101325) 6794936 


FOR R 
FOR R 
FOP R 
FOP NITROGEN 
BENDER SCORR=R*ALOG( , 
OELS=0.0 


THE TERM 


ES C0NV=1 
14.696 
. 101325 


IF (IHY.EO.l) CALL SETCPO(TS) 

Al=CCOP5*.25 
A2=CC0P4*. 3333333 
A3=CC0P3^.5 
STERM 1 = STINTF( TS) 

SSS= SOTO + (STERMl + DELS-STERM ) ♦CPOC QR-R *AL CG ( R ♦TS ♦ OS ) 

I ♦ SOINTIDSfO.) 

HSS=SSS 
R ETURN 
END 


C 

C 


C 

C 

C 


NEEDED FOR STEPWISE INTEGRATION 

SUBROUTINE SETCPO( TIN) 

DIM ENS ION ADOH( 4 ) ,ADl) S( 4) ,HCPO( 5, 3) 

DATA ACCE/0.,-62.9775,-l47. 6,61. 7/ 

DATA ACCS/0.,-9.9 313, 5. 3 61,-16.707/ 

COMMON /COCPO /TO ( 1 ),C:OP l,CC0P2,CC0P3,CC0P4,C:nP5 
COMMON /HY CRD/ DEL H, DEL S 
DATA HCPO/ 

A1 4. 7 599 360, -.2 1977 388, . 32 1 00 769E-2 12 061 5 03 E-4 , . 5 71 2 1 8D8 fc-8 , 

16 .6557899 ,. 1 5621 077, - . 86913643E-03 ,. 1897227 + E-05 I 44 1846 lc-D8, 
214. 41 14861,- , 71767870E-03, . 1 863 853 8E- 05 , - . 5 33 65 473 E -0 9 ,.46649305E- 
313/ 

TE5T=T IN 

MULTIPLfc FIT REQUIRES STEPWISE INTEGRATION FOR H2 

IF (TEST. LT. 40. ) GO TO 40 
K =3 

IF( TEST. LE. 500. ) K=2 
I F( TEST.LE .150. ) K=1 
5 00 10 1 = 2, 6 
10 TG( I) = hCPO( I- 1, K ) 

GO TO 50 
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40 DO 41 1^3,6 

41 TO! 11*0.0 

C 10.312 = 4. 968*4. 184/2.01572 

T0( 2)* 10.312 
RETURN 

50 DEL H=ADOH(K*n 
DEL S*ACCS(K>1 ) 

RETURN 

END 


SUBROUTINE PTRHO(DS»TS) 

COMMON /BEND/ R ,CPl,CP2t CP3,CP4,CP5,CP6 ,CP7 ,C P8 ,CP9 ,CP10 # 

1CP11» CPl2tCPl3,CP 14tCP 15,CP16,CP17,CP18,CP19,CP20 
2 ,CP2 l#CP22f CP23r CP24 

C0MM0N/BEND35/A2» A3f ^ 4,A5tA 6A ,A6B,A7A ,A7B rA8A f A8B,A11 f Al2f A13 , A14, 
lA15f A16 

C0MM3N/HELELU/ IHE, IFL, IHY 

COHMON/PARTLS/PTVfPDT 

T2»l. 

IP ( IHE.EO.l) T2*TS 

POT* M< (< 6.*CP13-2.*CP20*A16*A2/T2I *D S<^5 . *A 1 41 *0S ♦ ( 5 . *A 1 

16-2.*CP20/T2*A 1 5)* A 2*4.* A 13) *D S*3. *A12) *0 S^- ( 2 . *A1 1 *^3. *A15* A2) ) *0S* 
2R *TS 
A9= l./TS 
A10=A9*A9 
A6* A6A«^A6B 
A7=A7A*A7B 
A8*A8A*A8B 
A 17=0.0 

IE (IHE.EO.L) A17=(A6A4-A7A*A9*A8A*A10)*CP20*DS*DS*(A10*A10 ) 

PTV = A4-A10*i ( ( 4.*A8*\ 9«'3.*A 7) *A 9*-2 . *A6) *A9*^A> H-A17 

RETURN 

END 


SUBRDUT INE CPPRU Pf D, T ,C P PA RT ,C VPAR T f KUt KR, k: P, GAMMA, CS ON) 

COM M3 N /BEND/ R , CP I, CP 2, C P3 , C P 4 ,C P5 ,C P6 ,CP7 ,C P8 , C P9 ,C PI D , 

ICPl 1, CP 12, CP 13, CP 14,CP 15,CP 16,CP 17,CP 18 ,CP19, CP20 
2 iCP2 1,CP22,CP23,CP24 

C0MM3N/CnCP3/T0 ,CCOP 1,CC0P2 ,CC0P3 , CC0P4 , CC 0P5 

COMM3N/BEH017/TT 

COHM0N/BEND35/A2, A3fA4,A5,A6A fA6B,A7A,A7B,AdA,A8B, All ,A12, A 13, A 14, 
IA15, A16 

COMMON/EELFLU/ IHE, IFL, IHY 

COMM0N/BEND36/CPa 

COMMON /PAR TLS/PTV,POT 

COMMON/REFN3/SOTO,HOTO,CPOCOR ,H TERM,ST£RM 
COMMON /SW I TS/KS WIT, TS W I T ,0 1 F T ,R S WI T 
C0MM)N/C0NV4/SC0NV( 5) 

C0MMDN/C0NV5/CCCNV( 5) 

COMMON /lEPROP/IROUT 
TS=TCHECK(KU,KR,T ) 

PS = PCH£CK(KU, KR ,P ) 
nS=DCHECK(KU, D ) 

(IHY.EO.n CALL SETCPO(TS) 

TT=TS 

IF tKR.EO.ll KCP=KCP<-1 
ASSIGN 500 T3 JUMP 

IF ( OS .GT.P SW IT ) ASSIGN 600 TO JUMP 

IF (< SWIT.EO. 2.AN0,( TS.Lc .TSWI T.OR. 0 S. 3 T. P SW I T ) I AS SI GN 630TOJJMP 
Gfl TO JUMP, ( 50C,600) 

500 A9 = 1 ,/TS 
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AlO = A<3*A9 

A15 s ((CP16*A9 CPL5) * A9 f CP14I ♦ AlO 
A16 * ((CP19*A9 4- CP18)*A9 4*CPi7>*AI3 

TEST CP COMPUTED BY THh INTESRAL OF TH6 SLCONO 
PARTIAL OF P BY T 


C 

C 


CPO * I ( ( CC3P 5*TS +CCOP 41 ♦TS+CCOP3 > * T S^-CC GP ? ) ♦TS^-C COP I 
CVO= CPO^CPOCOR-R 

CVPART= -( CPPRLFUTS ) - CPPRLFO.)! 4- C VO 
GO TO 1000 

600 CALL SPCHV(KU,KP,KCPr TS,PSpDS,CVPART) 

1000 Al= OS^DS 
T2=1.0 


IF ( iHF.EO.n T2=TS 

A2= DS^EXP(-CP20^DS*0S/T2 ) 

A3=U ( (CP 13*0 S+CP 12 !*0 S+C P ICI *0 S*CP7) *D S4-CP2) *A I 

AA=( ( ( ( CP11*0S^CP9>*D S4-CP 6>*D S^^CPl I*0S4^R> *0S 

A4=A4*2,*CP22*A 1*0S*TS 

A5=(( CP24*A l4-CP8l*0S*CP3)*A 1 

A6A^( CP17*AI*CP 14)*Al*A2 

A6B= ( CP23*DS+CP4)*A1 

A7A=( CP 18*A UCP 15 l*A 1*A 2 

A7B=CP5»A1 

A8A=( CP19*A14^CP16I*A1*A2 
A8B=CP21*Al 
A9 = l./TS 
AlO = A9*A9 

^11"= CP21 *A94-CP5)*A94“CP4) *A9+CP3 )*A94-CP2*CP1*TS 

A12 = ( CP23*A9+CP8 l*A9>CP 74- (C P22*TS*CP6) *TS 

A13 = CPIO + CP9 ♦ TS 

A14= CP11*TS4-CP 12 >CP24*A9 

A15 = ((CP16*A9 4* CP151 ♦ A9 4^ CP14) * AlO 

A16 * (<CP19*A9 4* CP18)*A9 4^CP17f*A10 

CALL PTRHOIOSfTS) 

CPPART = CVPART+ TS*P T V*P TV/ ( PD T*0 S*0 S) 

IF (KCP.E0.2l KCP=0 
CPP ART=CPP ART* SCON V(<U> 

CVP ART=CVPART*SCONV(KU) 


SONIC VELOCITY CSON FOR REGIONS 1, 2, AND 3 
I ROUTES 

G ANMA = CPPART/CVPART 
ganpr=gamma*io.*pot 

CS = 0. 

I F ( GAMPR .GT .0. )C S=1000.* SOR T(GAMPR > 

CSON= CS*CCONV( KU I 

RETURN 

END 


C 


C 

C 

C 


FUNCTION CPPRLF(OS) 

CO«1»JDN/BEKO/ ^ *CP1,CP2,CP3,CP4,CP5,CP6,CP7,CP8,CP9.CP13 

C0MM0N/BEND17/TS 
common/helflu/ IHE, IFL, IHY 


INTEGRAL OF ((T /P HG** 2 M D 2P/D T2 ) AT CONSTANT RHC) 


C0NM0N/BEM035/A2, A3,A4,A5,A6A 

1A15»A 16 


• A6Bt A7A t A7B ,A8A 


T 2=1.0 


rA88fAll fAI2i A13»A14f 


IF ( iHt.EO.l) T2=TS 
Vl=l./CP20 

B2 = cs*ns 

V2=R2/T2 
B3=EXP (-CP20*V2 ) 
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Bl*-B3^.5^Vl*T2/TS 
A1 * l./TS 
02* B2+T2*V1 

03*B2*B2^2.»V l^(0 2«'Vll 
D4 * Al*Al 

A17*( 10* ♦CP 16*A 1 + 6.*CP 15)»A14^3.*CP14 
A18*C 10. ♦CP 19^A 1^6.^CP 18)^A H-3.*CP17 
A19*T2/CP20 
A20*A19^A19 

A21*( 10 •♦CP 16*A 1>8.^CP 15>^A 1*6.^CP14 
A22»( 10.^CP19^Al^8.*CP 18> *A !♦ 6. ♦CP 1 7 
D5*Vl*V2^( l.».5^V2*CP20) 


D52=05/CP20 

07* (C B2/A19+3 • •♦B 2+6. ♦A 19 2»- 6. *A2 0 

B3* EXP(-CP20*B2/T2> 

TERH*0 

TERM*B3*< 02»A21^. 5/(T2»T2*T2>-A15^D5^A22*052/ T2-A16 ♦07^.5/ T2) 

CPPRL F=2.*D4^< ( ( ( 10 .♦CP 21^A1*6.^CP5> ♦Al«'3 .♦CP4» ♦A1^CP3 I ♦OS 
♦ 2. ♦CP22^TS fCP8*3.*CP23*A I*-. 5^CP2^^B2 ) ♦. 5*3 2<- (A17^02^A18 >*B1 1 


♦ ♦TERM 
RETURN 
END 


C COMPUTE SPECIFIC HEAT CV GIVEN TEMPERATURE T» PRESSURE P, 

C AM CENSITY D. UNITS ARE SPECIFIED BY KU. REGION IS 

C SPECIFIED BY KR . IF KR IS SPECIFIED AS I» THE SATURATED 

C LIQUID AND VAPOR SPECIFIC HEATS, C VL AND CVV RESPECTIVELY, 

C ARE COMPUTED. 

C 

SUBROUTINE SPCHVI KU,KR ,KC P , T ,P ,D ,C V) 

OIMEMS ION CVS ( 5) 

COMMON /CONV^/ SC0NV(5) 

C0HM0N/BEN038/ TSHI6»,TS 
C0MM0N/eEN039/DS 

COMMQN/CHECKS/OCHKU ,0CH2,PCH1 ,PCH2,PCH3 ,TCHl ,TCH2 ,TCH3,0ST ,TST,H 
IS CHI, HSCH2 

COMMON/SWITS/KSWIT,TSWIT,OIFT,R SVill T 

COMMIN /lERRDP /IROUT 

IR0UT=10 

TS*T 

PS=P 

DS=0 

IF (<P-l) 100, 10, 100 
C 

C REGIONS 2 AND 3 


100 

I F( PS- 

PCH2 

) 40, 

40, 150 

150 

TSS = 

TCH2 




GO T3 

160 



40 

CALL T 

EMP< 

UPS, 

2£,TSS, 1) 

160 

GO T3 

{ 10, 

20, 30 

l,KR 


REG 

iION 

1 


10 

GO TO 

( 12, 

14),KCP 

12 

TSH( 1 ) 

*TS 




CALL CVPS( 1,2, CVS) 
CV=CVS< 1) 


RETURN 

14 TSH( I l*TS 

CALL CVPSI 1, 3, CVS I 
CV=CVS(1 ) 
p eturn 


no 


C 

c 

c 


REGION 2 



ooooo or>o 


20 TSHU )*TS 

IF (TSS.LE.TS-OIFT) T SH ( U =TS-0 1 FT 
IF (TSS.LE#TS-2,*0IFTI TSH ( lMTS-2. *01 F T 
GO TO 90 

REGION 3 

30 TSH( I l*TS-2.*DIFT 

IF (rSS.GE.TS-2,*0IFTI TSHU) *TS-C)IF T 
IF ITSS.GE.TS-DIFTI TSH(1)=TS 
90 CONTINUE 

CALL CVPSI l,KR,CVS) 

CV=CVS( II 

RETURN 

END 


ROUTINE USED TO COMPUTE SPECIFIC HEAT CVS GIVEN 
TEMPERATUREf PRESSURE» AND DENSITY. WHETHER DENSITY OR 
PRESSURE IS CONSTANT IS SPECIFIED BY KVP. REGION IS 
SP ECI FIEO BY KR . 

SUBROUTINE CVP S( K VP , KR ,C VS ) 

DIMENSION HS( 5),CVS( 51 
C0MM0N/SWITS/KSWIT,TSWIT,DIFT,RSWIT 
COMM0N/BEN037/PS 
CO'<MON/BEND38/ TSH(6),TS 
C0MM0N/8EN039/DS 
I F (<VP-l) 60f 70, 60 
70 ASSIGN 80 TO JUMP 
GO TO 90 

60 ASSIGN 100 TO JUMP 
90 DO 50 1 = 1,5 

GO TO JUMP, *80, 1001 
80 CALL PRESS< I, TSH( n,DS,PSH,KRH| 

CALL ENTHf If KRH,TSH( II ,PSH,DS,HSU I ,HSL ,H SVI 

IF KRF.EO.l) GO TO 95 

HS( n =FS< II-PSH/DS 

UHS = hS( n 

GO TO 50 

95 IF (KR.EQ.2) HS( I ) =H SL-P SH/DS 
IF (KR.E0.3I HS( I l=HSV“PSH/OS 
K FH=0 
GO TO 50 

100 CALL DENS( 1,TSH(I ),PS,DSH,DLS,OVS,KRH| 

CALL ENTH< 1, <R H, T SH( 1) ,P S ,D SH,H SU I ,H SL ,HS VI 
110 IF 50, 10, 50 

10 I F (KR-2 I 30, 20, 30 
20 HS( n=FSL 
GO TO AO 
30 HSC I ) =HSV 
AO KRH=0 

50 TSH(I + n = TSH( n+OIFT 

CALL SPL INA( TSH.HS, 5, TS, 1 ,C VS, 1,KERR0R) 

RETURN 

END 


COMPUTE VISCOSITY MU GIVFN TE MPt RATiJP E T AND DENSITY D. 
UNITS ARE SPECIFIED BY KU. REGION IS SPECIFIED BY KR. 

(U-U*)7 PARAMeiER IS CALCULATED FROM JOS SI , ST I EL , AND THOOCS 
VOL. 8 NO. I A.I .CH.F. JOURNAL PAGE 60 


StlBFOUTINE Vise (KU,KP ,T,0 ,‘^U| 



ooo o o ooo non 


DIMENSION COMEGA( ISIfMCONVI 5) 

REAL MUStMCONVtMUfHUMZ 

DATA (COMEGAI I I tlslt l5»/2. »-• 522 88 »-l • 331 15022 «• 56 1602^4* 
ll«49894829«-1.846 81526f U 589466 84i • 60206 1 • 32481 334E->1 1 
2- *235240 79, ♦65223929,-1* 03095995, 1.40383078,2. 60206/ 

COMMON /COFMU/EPSK, WMfO IS, RHOCRTtZETA ,AMUX,BMUX 
DATA MC0NV/2*l.,.67196899E-l,24l./ 

C0MM0N/HELFLU/IHE,IFL, IHY 
COMMON /lERRQR/IROUT 
IP011T»12 

TS-TCHECKIKU, KR,T) 

DS»OCHECK(KU,D I 
IF nHY.EO.ll GO TO 20 
IF( IHE.EO.l) GO TO 40 

REGIONS If 2, AND 3 

XMS-. 26693E-4*SORT( WM*TS) /(0IS*0I S*P0LY( ALOGIO ( TS*£ PS Kl ,COMEGA > I 
RHOR^OS/RHOCRT 

MUMZ«( IRH0R4( RH0R*(RH0R*(RH0R*. 0093 324-. 040758 I 0 5853 3 K.O 23364) 

♦ ♦.10230)**4-l.E-4)/ZETA4.0l 

CORRECTION APPLIED TO FLUORINE DERIVED BY RCH FROM HANLEYS DATA 

IF (IFL.EQ.l) MUMZ«MUMZ*( 1.-.25*SIN(2.38084ALOG(RHOR) ) ) 

S CA 1» 1 • 

IFIRHOR.GT.1.5) SCA 1* I 1.- ( AMUX+BMUX* ( RHOR -1.5)1) 

IF( RHOR.GT.2.8 I SCA 1= ( 1 ( AMUX+BMUX*! . 3 ) ) 

HUS*(MUMZ^XMS)/SCA1 
GO TO 30 

40 MUS»VISCD(OS,TS » 

GO TO 30 

20 XMS*8.55584(TS4* 1.5/1 TS*19. 55)* (TS+650. 39) /(TS+1175.9) ) *1. E-6 
IF(TS.GE.100. ) XMS*1. 779E-6+TS**. 6035 

AFUNC«EXP( 5.7694tALOG(OS)+65.*OS4*l .5-6.E-6*E XP <12 7 .2*DS) ) 

0STERM*DS/.07 
-171282.8 = -58.75/.07^^3 
R AN GE*- 17 1282 .8*0 S** 3 
IF (RANGE. LT. -80. ) RANGE*-80. 

BFUNC*10.0*7. 2* (DSTERM»*6-DSTERM**1. 51-17. 63*EXP( RANGE ) 

MUS= XMS+AFUNC*EXP{ BFUNC/TS)*l.E-6 
30 MU=MUS^MCONV( KU ) 

RETURN 

END 


FUNCTION VISCD <OGC,T) 

FROM MC CARTY N6S AND W.O. STEWARD, S DATA 
R=OGC 

TL= ALOG(T) 

A = -0.135311743/TL 1.00347841 ¥ 1 . 20654649*T L 

I -0.14956455l*TL*TL *0.012 52 C841 6*TL**3 
B *R*(-47.5295259/TL * 87.6799309 -42 . 074 15 89*T L 

1*8.33128289*TL*TL -0. 5892 52385*T L**3 I 

C = R*P*( 547. 309267/TL - 904.870506 * 43 l.404928*TL 

l-8l.45C4854*TL*TL * 5.37008433*71**3) 

0 *R**3*(- 1684.39324/TL * 3331.08630 - 1632 .19172*TL 

1*308. 804<il3*TL*TL - 20. 2936367*TL**3 ) 

VISC3 = EXP (A* B* C* 0)*l.E-6 

RETURN 

END 


C3MPUTF THERMAL CDNDUC TI VI TV K GIVEN TfcMPCRATUPE T AND 
DENSITY D. UNITS ARE SPECIFIED BY KIJ. REGION IS SPECIFIED 
BY KR. 
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C 


SUBROUTINE THERM I KU, KR , P , T ,0,E XCE SK , K) 

COMMON/EEL FLU/ IHE, IFL, IHY 

COMMON/TCOND/CKMKST( 9 ) , XLAMBfZC5, RHOCR, TCR, TCSTAR* CKSTARIISI 
COMMON/BEND/R tOWY( 28 ) 

COMMON /COFMU/EPSK,WM,0 I S,RHOCRT,ZETA ,AMUX,BMUX 
COMMON/REFNO/SOTO,HOTO,CPOCOR,HTERMtSTERM 
COMMON /COCPO/TO,CCOPUCCOP2,CCOP3,CCOP4,CCOP5 
DIMENSION OMEGAK 9I,0MEGA2( 151 
REAL KMKS, KSRAT, K, KCONV ,KZERO 
DIMENSION KC0NV(5> 

DATA COMEGAU H » I =1»9 J /I. , A. f-. 5228, . 82359030E- 1,-. 5398231 6, 

11 .28552593,-1.53509952, 1. AA223760, 2. 602 / 

DATA ( 0MEGA2( Hfl = l»15)/2.f4. . 522 88, - 1 . 3 3 1 1 50 22 , . 56160244, 

11 .49894829,- 1 .84681 52 6, 1. 58 9466 84, . 602 06, . 3248 1 334 C-1 , 

2- .23524079, .65223929,-1.03095995,1.40383078,2.60206/ 

DATA KCONV/2*!.,. 01606044, 2*1./ 

COMMON /lERROR/IROUT 
IR0UT*11 

TS=TCHECK(KUtKR,TJ 

DS=DCHECK(KU,D) 

C 

c REGIONS 1 , 2 , AND 3 

C 

IF (IHE.EO.l) GO TO 30 
RHO a CS/PHOCR 
ARH0*AL0G10(RH0 I 
IF URHO.GT.CKMKSTI 3) ) GO TO 10 
KMK$al0.**(ARH0-7.0» 

GO TO 20 

10 KMKS a 10.*4* POLV(ALOG10(RHO>,CKMKSTn / (7C5*XLAMBI 
20 IF HFL.EO.IJ GO TO 35 
IF ( IHV.EO. i) GO TO 38 
TR a TS/TCR 

KSRAT = 10. ♦♦ (POLY ( A LOG 10 ( TR ) , CKSTAR)) * TC5TAP 
Ka (KMKS ♦ KSRAT) ♦ KCONV(KU) ♦ 4.184 
GO TO 40 

30^SL0P6 *10. ♦♦( OS* ( OS* (OS^ (-62 1.369011) 4-224. 2 564 1-29.485 14) ^2 .0941961 

KMKS= ALOG10(TSl/SLOPE*l.t-3 
C USE FANS ROOERS KO 

KZERO=CONZ(TS)*.OOl 
K a( KMKS*KZERO )*KCONV( KUI 
GO TO 40 
C 

C FLUORINE KZERO CURVE BASED ON MA SON- MONCHI C K ANALYSIS 

C FROM REID AND SHERWOOD PAGE 461 EO 10-12 

C 

35 OMlaPOLY( ALOG 10 (TS*EPSK ), OMEGA! ) 

0M2=P0LY( ALOG10(TS*EPSK) ,0MEGA2) 

0M21=1.2*0M2/nMl 

XMO=. 26693E-4*S0RT( WM*TSI / (01 S*DI S*0M2) 

CVQ=CP0C0R*( ( ( ( CC0P5*TS+CCnP4)*TS4-CC0P3)*TS4-CC0P2) *TS*CCnPl) 

C .6366203 = 2. /3. 14159 

K ZERO = { 1 .77*R ■►0M2 1*CV0- .6366203* (2.5- 0M2 I ) **2 * ( CVO- 1. 5*R) / 

1( 2.*.O2*TS**.03333))*XMO 
K=(KMKS+KZERO )*KCONV(KU) 

GO TO 40 

USES ROOERS HYDROGEN CALCULATION BUT NOT HIS CRITICAL SCALING FOR 
REACTING CONDUCTIVITY NEAR THE CRITICAL REGION. 


38 K=0. 

I F( TS .GT.2000. ) GO TO 40 

IF(TS.LE.250. ) K=CONC ( TS, OS ) ♦ 1 . t-3*KC0N V( KU) 

SK=K 

IF(TS.GT.150. ) K = (KMKS*4.18 44-3. 3 83£-5*TS**.72 87 2) * KCONV (KJ ) 
X=.0l*(TS-150. ) 

IF((TS.GT.150.).ANO.(TS.LT.250.)) K=x*K4-(1,-X)*SK 

REACTING conductivity CALCULATED BY THti SE NGt; R S- K E VES METHOD 
GENERAL FLU IP 
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C 


40 


LOl 

104 


102 

50 

105 


0RH0C*ABS( DS-RHOCR I /RHOCR 
DEL AM0*O.O 

IF (ORHOC.GT..6I GO TO 50 
OB.TC»ABS( ( TS-TCR 1/TCRI 
RAT »0S /RHOCR 

IF (DRHOC.tT*«00001l GO TO 102 
IF (OBLTC.tT. l.E-71 GO TO 101 
X8ETA* DELTC*^.35/0RH0C 
IF(XBETA.GT..4) GO TO 104 
OELAMB= 3.05E«5/^ SORT ( RAT ) ♦ORHOC *♦ 1 . 71 1 


GO TO 50 

IF(XBETA.GT,3.I GO TO 102 
2.8571A3 = 1./.35 

DEL AMB*3.05E-5/(SORT(RAT>*0ELTC**.6l/(l, 
GO TO 50 

IF IOELTC.lt. l.E-71 GO TO 105 

DEL AHB*3.05E-5/(SQRT(RAT)*0ELTC**.6) 


♦.9/XBETA**2.857143)»».6 


EXCESK*OELAMB*KCONV(KU) 

RETURN 

EXCESK»l.E30 

RETURN 

END 


KZER3 TABLE IN MW/CM-K, T IN KELVIN, DECK OF 18 SEPT 70 

COURTESY OF HANS ROOtR NB S LAB BOULDER COLORADO 

FUNCTION CONZITEMP) 

DIMENSION A(55I,T(55I 

DATA A/0 .0376, 0.0496, 0.0608,0.0720,0. 0829 ,0.093 2,0 . 1028 ,0. 1200, 

1 0.13 50,0.148 6,0.1610,0.1725,0. 1933 ,0.212 1, 0. 22 92, 0 .2448, 0 .2594, 

2 0. 2983,0.3357,0.3709, 0.4042,0. 4360,0.4666,0. 52 59 , 0 .582 1 ,0 . 6359 , 

3 0.68 7 7,0.7381,0. 7862, 0.8333,0. 8791,0.9241,0. 9680,1.0113,1.054, 

4 1.09 6,1.136, 1. 17 6, 1.216, 1.255, 1.293,1.331,1. 369,1.406,1.443, 

5 1.479, 1.516, 1.551, 1.912,2.208 ,2.4836,2.743,2.99, 

63.226, 3.453/ 

DATA T/1.9,2.5,3.0,3.5,4.0,4.5, 5.0, 6. ,7. ,8. ,9 .,10. ,12. ,14. ,16., 

1 18., 20. ,25. ,30., 35., 40. ,45. ,50. ,60. ,70. ,80. ,90. ,100. ,110. ,120., 

2 130. , 140., 150. , 160. f 170. ,180., 190. ,200. ,210. ,220. ,230 . ,240 . , 250 . , 

3 260. , 270., 280., 290., 300. ,400. , 500. ,600. , 700. ,8 00. ,90 0. ,13 00./ 

TT= TEMP 

9 DO 11 J*l, 58 

10 IF( TT-T( J ) ) 12, 12, 11 

11 CONTINUE 

12 CONTINUE 

13 CONZ = A( J- !>♦( TT“T( J-U )*< A( J)-A( J-1 II / ( T< J» -T ( J-1 ) ) 

RETURN 

END 


C 

C 


r 


THIS ROUTINE BY HANS HAS BEEN CHANGED TO COMMENT OUT THE 

REACTING CONDUCTIVITY CALCULATIONS WHICH ARE NOT USED AT PRESENT 
r KELVIN, OEN MUST BE IN GP /CC , CP IN CAL/MOLE 


FUNCTION CONC( TMEAN,3ENI 
DIMENSION AAA« 12>,TTT( 12),0(3I 

DATA TTT / 13.000,1 7. 020, 19.58 7 ,25. 100,30.310 ,33 .063, 

I 43.145, 59.137, 79.845,99. 852, 122.909,153.0/ 

DAT A AAA /O. 1765, 0. 32 03 , 0. 41 2 I , 0. S 679 ,0. 8491 ,0.936 3 , 

1 1. 115 3, 1-4781, 1.7895, 2.0757,2. 335 7,2.545 0/ 

OATA C /9.8 8 53111 8L-0l,3.2 0886940E*'0l ,-9 . 10 I 4098 9E^02/ 

C0NC=0. 

THIS CALCULATION BLOWS UP IF EXTRAPOLATcD TOC FAR 
IF (TMEAN.GT. 300.1 GO TO 20 
no 9 1, 12 
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IF(TME4N -TTT( 110, 10,9 
9 CONTINUE 
10 CONTINUE 

C0NZ1*C.1^EXP (AAA(J-1M 
CONZJ*0, l^EXP <AAA(JJ ) 

AAVE =^CONZ 1 ♦(THE AN-TTT( J-l) I * ( CCiNZ J-C0N2 U/(TTT(J)-TrT(J-lJ» 
AAVE=ALOG( lO.O^AAVE) 

BB=39.6-2.*S3RT( 248 .0-( .1*TMEAN-17. 

OENSO=CEN*DEN 

FUNC==AAVE>0( I >♦ 6B» DEN^'OEN SO* ( D { 2 ) ♦-D ( 3 J /( TME AN-9 *on 

C0NC=0 .1*EXP( FUNC I 

RETURN 

20 IF (TMEAN .GT, 2000,1 RETURN 
C0NC=2,8971E- 3* TMEAN** ,72872 
RETURN 
END 


SURFACE TENSION OYNE/CM 

SUBROUTINE SUR F ( K U, KR , T, S IG MA ) 

COMMON /S UR CON/PCTC, TCR IT,FI XI T, ZET 
COMMON /HEL FLU/ IHE , IFL , IHY 
COMMON /lERROR/IROUT 
DIMENS ION STCONV( 51 

DATA STCONV/2* 1,, 6. 8 52 1 766E- 5 , 2* 1, / 

IR0UT=13 
S IGMA = 0. 

TS=TCHECK<KU, 1,T» 

IF < TS ,GT. TCP ITI RETURN 
IFIIHY.EO.l ,DR, IHE.EO,!) GOTO 10 

SIG=PCTC*( 1,-TS/TCRIT )** 1,222 22 2*(.43 2/ZET-.9 51 )*F I XI T 

S IGMA=SIG *STC0NV(KUI 

RETURN 

10 tr=ts/tcrit 

Cl=5.3Ce 

IF( IHY,EO.U Cl = 5,369 

SIGMA=C1*( UO-TP »** 1.065*STC0NV(KUI 

RETURN 

END 
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COMPACT FLOW CHART FOR GASP 



















^See appendix F for details of subroutine or function specified. 
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'See appendix F for details of subroutine or function specified. 
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^ See appendix F for details of subroutine or function specified. 
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Enter 


SUBROUTINE TEMPPHtKU, P. H, T, D, DL, DV. KR) 
vJUBROUTlNE TEMPPS(KU,P. H.T.D.DL, DV.KRy 


TEMPPS is identical to TEMPPH 
except that H, representing enthalpy, 
is everywhere replaced by S to indicate 
entropy and ENTH is changed to ENT 
and TSHFtoTPSF 


PS=PCtCCK(KU,KR,P) 

I 


HS=H/HCONV(KUI 

SS-S/SCONV(KU} 


ICALL TEMP to get 
Isaturation T5 


Yes 



^S<PCH2^ 


No 


CALL ENTH to get HSL, HSV 
^CALL ENT to get SSL.SSV 


Determine approximate region number 
on basis of HSL, HSV. and PS 


Determine approximate region number 
on basis of SSL. SSV, and PS 


TEMPPH uses 
PCHECK 
HCONV 
TEMP 
ENTH 
DENS 
ROOTX 
TSHF 


TEMPPS uses 
PCHECK 
SCONV 
TEMP 
ENT 
DENS 
ROOTX 
TPSF 


CALL DENS to 
getDSL,DSV 

Yes^^R=l\No I 

1 Initialize TSl, TS2 

1 

' 1 

j 

1 


CALL ROOTXtTSl 

—1 

TS2. HS.TSHF.TS) 

^CALLROOTXITS 
^ 1 

US2.SS.TPSF.TS) 

1 


CALL DENS to get DS 


b=DS=5‘DCONV(KU) 


DL=DSL-DCONV(KU) 

DV=DSV=’>=DCONV(KU) 


■ HT-TS<-TCONV(Kui| - 

(Return) 


Verify region number from 
given PS and calculated TS 


^ See appendix F for details of subroutine or function specified. 
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vise uses 
7CHECK 
DCHECK 
POLY 




THERM uses 
TCHECK 
DCHECK 
POLY 
CONZ 
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SURF uses 
TCHECK 



CPPRL uses 
CPPRLF 
SPCHV 
PTRHO 


^ See appendix F for details of subroutine or function specified. 











APPENDIX I 


TEST PROGRAM WITH OUTPUT 


This appendix contains a short isobar test program with sample output for each of 
the 10 fluids in GASP. It is not intended to be used as a set of property tables but rather 
as an aid to checking out the operation of GASP. The user can produce similar output by 
using the following driver -deck 

(1) To verify the GASP calling procedure 

(2) To check user output against expected output 

(3) To serve as a rapid means of providing the user with results 

All parameters that are produced by GASP, with the exception of surface tension and 
saturation properties, are listed as output for three pressures: 

(1) 0. 101325 MPa (1 atm) 

(2) Critical pressure of the fluid 

(3) 10. 1325 MPa (100 atm) 


C 

C TEST PROGRAM PREPARES TABLES FOR EACH FLUID OVER A RANGE CF PVT 

C 

COKMON/PPOPTY/KU,nL,DV,HL fHV, St SL, S Vt C V t C VL tC VV ,CP .CPLtCPV , GAMMA, 
lGA'iMAL,GAMMAV,C,CL,CVP,MU, MUL , MUV, K , KL , K V, SI 3 MA ,E XCES K , EXC L , EXCV 
COMMON /DEP IV/PDT, PTV, PDTL ,P0TV, PTVL ,PTVV 
REAL MUtMUL ,MUV,K,KL,KV 

COMMON/CHECKS/DCH1,OCH2,PCH 1, PCH2,PCH3, TCHl ,TCH2,TCH3 ,DST ,TST ,H 
IS CHI, FSCH2 

DATA NAM/3HCH^, 2HN2, 2H02, 2HAR , 3HC02 ,2HNE , 2HC0 ,2 HHE ,2HF2 ,2HH2/ 
DIMENSION NAM( 10 ) , P ( 3 ) , T( 2 50) , YPL ( 25 0, 1 01 ,TSTART(3 ,13 >, OTA I 3, ID ) 
DATA P/1., l.t 100./ 

DATA TSTART/9 5. ,29 5., 400. , 65. , 2 OC. , 400. ,60. ,2 25 . ,4D 0. ,8 5. , 225 . , 400 

♦ .,223. ,4 20., 500., 25., 80. , 40 0. ,7 0. ,2 00. ,400. ,3 ., 10. ,10 0. ,70., 200., 
*400., 16., 40., 200./ 

DATA CTA/ 10., 20., 100., 10. ,20. ,100. ,10. ,2 0. ,130. ,10. ,20. ,13 0., 

♦ 10., 20., 100., 10. ,20. , 103. ,13. ,20. ,100. ,.5 ,13. ,103. ,5 . ,23. ,103., 

♦ 2 ., 10 ., 100 ./ 

KS=1 

KP=31 
KU= 1 

RRITEI 6, 1) 

1 FORMAT! IHl 1 
00 lOOC L = l, 10 
CALL SETUP (NAM(L ) ) 

P(2»=PCF2/. 101325 
T( 1 ) = TSTART( 1,L ) 

DT=CTA( 1,L ) 

TS=TSTAPT(2,L ) 

N = 2 
KPT=0 

00 20 3=1,50 
KPT=J 

T( J *^1 )=T( J )«^0T 
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Tj=T( j *n 

IF(TJ .GE.TCH3) GQTfl 25 

IF(L.EC.10 .AND. TJ .GE . 1999. 5) GOTO 25 
I F( TJ-TS«^.05) 20, 210, 210 
210 T(J>ll=TS 

OT=DTA(N,L ) 

N=N*1 

TS=TCH3 

IF(N.LT.A» TS = TSTAPT( N,L» 

20 CONTINUE 
2 5 KPT=KPT + 1 
TKPT >=TCH3 
DO 100 1=1,3 
7= P( I I*. 101325 
DO 50 J=1,KPT 
K.R=0 

CALL GASP (KS, KP,T( J» , Z,0,H,KR) 

yPLU, 1) = C 

yPLU, 2) = H 

yPL(J,2) = S 

yPLU , AJ=CP 

y PL (J, 5)=CV 

yPL u, e j=c 

yPL(J,7J=K 
y PL ( J , 8 )=MU 
yPL (J , 9)=PDT 
y PL ( J, 10 )=PTV 
46 FORMATIIH ,I6,6E14.6) 

50 CONTINUE 

TABLE OF 

CENSITy, ENTROPy, ENTHALPY, CP, CV, SONIC VELOCITY 

THERMAL CONDUCTIVITY, VISCOSITY AND PARTIAL DERIVATIVES 
FOR EACH T P 

MRITE(6,800J NAM(L»,KU 

800 FORMAT! IHl ,45X,34H THERMODYNAMIC PROPERTY TABLE — ,A4 ,3X,3HKU= 

I 131 

WRITE(6,801) P(I) 

801 FORMAT! IHO , 5X, F10.2 , I IH ATM I S08AR1 
HR1TE(6,701) 

WRITE! 6, 702) 

701 FORMAT! 3H0 , 4HTEMP , 5X , 7H0EN SI T V, 4X , 8HENTHALP Y,4X, THE NT R0PY,7X , 2HC 

♦P, lOX, 2HCV,9X, 7HSDN VEL , 4X, lOHTHERM COND , 5 X,V H VISC ,7X , 5HDP/ DO, 7X , 5 
♦HCP/DT,/ ) 

702 FORMAT! 4X, IHK, 8X, 4HG/CC, 8X, 3H J/G , 8X ,5H J /G-K ,7 X, 5H J/G-K ,7X , 5H J/ G-K, 
♦8X, 4HCM/S, 7X, 8HJ/CM-S-K, 5X, 6H5 /CM-S,4X, 10HMN-CC/G-M2,3X ,7H MN/K-M2, 
V/1 

DO 150 J=1,KPT 

WRITE !6,803» T!J),!YPL!J, N),N=l,10) 

IF !MOD! J, 501.NE.0) GO TO 150 
IF ! J.EO. KPT) GO TO 150 
WRITE! 6, 800 ) NAM! L ) 

WRITE! 6, 801) P! I ) 

803 FORMAT ! IH , F6. 1, 2X , 10 ! IX ,G 1 1 . 41) 

150 CONTINUE 
100 CONTINUE 

51 FORMAT! 12H ISOBARS = 5F 10. 3 ) 

1000 CONTINUE 

RETURN 

END 
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THERMODYNAMIC PROPERTY TABLE — CH4 KU* 
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THlRMOnVNAM IC AND TRANSPORT PROPERTIES FOR OXYGLN PC = 50 . 16 AT M, T C= I 5^ . 7 8 K , ROC= ♦ A 32 5G/CC 

THERMODYNAMIC PROPERTY TABLE — 02 KU 
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THFRMJCVNAMIC AND TRANSPn«T PROPERTIES FOR HE PC ^ 2.2^5ATH, TC = 5.2K, RHOC * .06^3G/CC 

THERMODYNAMIC PROPERTY TABLE — HE KU= 
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VALUE I S EXTPAPOLAT ED 



THERMODYNAMIC PROPERTY TABLE — H2 KU« 
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APPENDIX J 


SAMPLE PROBLEMS WITH OUTPUT 

It is often instructive to present a few examples as an aid to the user. In this ap- 
pendix, we have chosen four rather simple problems in order to demonstrate how to make 
calls to GASP. 


PROBLEM 1 

Calculate the heat -transfer coefficient for liquid hydrogen flowii^ turbulently throi^h 
a tube for these conditions: 

(1) Tube diameter, 0. 8 cm 

(2) Average bulk velocity, 60 m/sec 

(3) Average bulk temperature, 25 K 

(4) Average bialk pressure, 6 megapascals 

(5) Tube wall temperature, 450 K 

Nu = 0.021 ReJ-^PrJ'* 

where 

Nu Nusselt number, hd/k 
Re Reynolds number, pVd/u 
Pr Prandtl number, juC /k 

h* 

h desired heat -transfer coefficient 
d tube diameter 

k thermal conductivity 

p density 

p dynamic viscosity 

V kinematic viscosity, p/p 

Cp specific heat 

u average bulk velocity 

and the siib scripts b, f, and w denote bulk, film, and wall conditions, respectively. 


w 


11 + 0.01453 — 
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c 

C 03 NOT USF K AS AN INOEX [T »<EANS THERMAL CONDUCTIVITY 

C no NOT FORGET YOUR COMMON STATEMENT 

C 

COM MON /PROP TV /KU, DL ♦ 0 V » HL iH V t Si SL » SVt C V»C VL t C VV i C P ♦ CPL t CPV » GAMMA* 
^ lGAMMALiGAHMAV,C,CLtCVPf MU, MUL , MfJV, K , K L , KV, SI G MA ,f XCfiSK , EXCL ,SXCV 

C DECLARE TEE FOLLOWING VARIABLES AS REAL 
C 

PEAL MU,MUL,MUV,K,KL, XV 

C 

C DO NOT FORGET TO CALL SETUP 
C 

DATA OIAiVB, TB,PB,TW^0,8,60,,25. ,6. ,450,/ 

DATA NAM/2HH2/ 

CALL SETUPINAMI 

C SELECT UNITS OF CALCULATION - SET KU»l 

XU»l 

C SELECT BULK PROPERTIES OEN S I T Y , VI SC 0 SI T Y - SF T KS=1,KP=8 
KS»I 
KP-8 

C DETERMINE THE REGION OF CALCULATION - ASSUME UNKNOWN - SET KR=0 
KR-0 

CALL GASP(K$,KP, T6,PB,0B ,HB,KR ) 

ANU0-MU/O8 

C DETERMINE WALL PROPERTIES DE N S I TY , VI SCOSI T V - SET 

C DETERMINE WALL PROPERTIES DL NSI T Y , VI SCOS I T Y - (KS=l,KP-8) 

KR*0 

CALL GASPIKS,KP,TW,PB,DW,HW,KR ) 

ANUW-MU/nw 

C determine film properties, DENSITY, SPECIFIC HE AT , VI SCOS I TY 
C THERMAL CONDUCTIVITY, SET KS*l, KP=4«-8fl6 * 28 
KP»28 
KR>0 

TF-ITW+TBI/2. 

CALL GASPIKS,KP,TF,P0,OF ,HF,KR1 
R EF*DF*Ve*lOO, ♦DIA/MU 
PRF*CPMMU/K 

ANUF»0,0 2l*REF** . 8*PRF ♦♦.4* ( 1 . ♦O. 01453*ANU W/ A NUB I 
HCCF*ANUF*K/DIA 

WR1TEI6, 1000) DIA,V0,T8,PB,TW,REF,PRF,ANUF,HCOF 
WRITFI6, icon ANUW.ANUR, K, MU,DB,OW 

1000 FORMAT ( IHl, 5H 01A»,F5.2, 5H VB*,F5.1,5H TB>,F5.2,5H PB*,F5.l, 

15H TW*,F5.l,6H REF*,F8.0,6H PPF»,F5.3,6H NUF=,F5.l, lOH H.T.C 

20F-F5 .3, ////I 

1001 FORMAT! 6( 3X,e 13,7 n 

STOP 

END 


THFPMOOYNAM IC AND TRANSPORT PROPERTIES FOR HYDROGEN PC » 1 2 . 75«) ATM, TC* 32 .976K, RHOC- .0 31 43G/CC 


OIA- 0.80 VB* 60.0 Tfl*25.00 P0= 6.0 TW-450.n REF- 369005. 

O.37IO606E-O1 CJ.1900674E-02 0. I a76238E>-02 0.7o69401E* 04 


PRF-0.645 NlJF-643.0 H ,T ,COF « 1 . 508 

0.7292893E-01 0 .3 14T296E- 02 
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PROBLEM 2 


Calculate the end point (exhaust conditions) of fluid properties for a methane ex- 
pander with inlet conditions of 100 atm and 200 K and exhaust conditions at the critical 
pressime. Assume the expansion is isentropic. 


C 

C 00 SOT USE K AS AN INDEX IT MEANS THERMAL CONDUCTIVITY 

C DO NOT FDR GET YOUR COMMON STATEMENT 

C 

COMMON/PROPTY/KU»DL,OV,HL|HVr S* SL» SV»CV »CVL ,CVVf CPt CPL ,CPV , GAMMA, 
1 GAMMAL,GAMMAV,C,CL,CVP,HU,MUL ,MUV,K,KL, KV, SIGMA »excesk,excl,excv 

c 

c declare the follohing variables as real 

c 

PEAL MU,MUL,MUV,K ,KL,KV 

c 

c DO NOT FORGET TO CALL SETUP 

C 

CATA PIN,T1N/100.,200./ 

DATA NAM/3HCHA/ 

CALL SETUP INAMI 

C SELECT UNITS OF CALCULATION - SET KU=2 
KU-2 

C DETERMINE THE REGION OF CALCULATION - ASSUME UNKNOWN - SET KR-0 
KR*0 

C SELECT properties DENS ITV , EN THALP Y,6NTR0P Y, SPEC I FI C HEATS, SONIC 
C VELOCITY, VISCOSITY, THERMAL CONDUCTIVITY KP* 1»2 *16 » 31 

K5*l 
KP«31 

CALL GASP(KS,KP,TIN,P1N,0IN,HI N, KR) 

S IN»S 

CPIN-CP 

CVIN-CV 

SON IN»C 

VISIN-MU 

CCNIN«K 

UIN = FIN-P1N* .101 325/0 IN 
AKR IN=KR 

r ISENTROPIC EXPANSION TO OUTLET SOUT =SI N- S , P=P0UT - SET KS*5 
KS-5 

C THE CRITICAL PRESSURE OF METHANE IS 45.66 ATMOSPHERES 
0-45.66 

CALL GASP(KS,KP, TOUT , P ,DOUT ,HQUT , KR 1 

SOUT-S 

CPOUT-CP 

CVOUT»CV 

SONOUT^C 

V ISnUT=MU 

CONOUT-K 

U0UT=H0UT-P* , 101325/01 N 
AKROUT-KR 

MRITE(6, lOOOITIN, PIN,niN,HlN,SIN,CPIN,CVIN,SONIN,VISIN.CONIN,AKRIN 
WRITE! 6, icon TOUT , P , DOtiT, HQUT , SOUT , C POUT, C VOUT , SONOUT , VIS OUT, 

1 CONOUT, AKROUT 

1000 FORMAT! IHI,5H TIN*,F5.0,5H PIN=,F5.0,5H DIN*,F5.3,5H HIN»,F6.1, 

I 5H SIN=,F5.2,6H CP I N - ,F 5. 2 , 6H C VI N * , F 5 . 2 , 9H SONI C I N= , F6 .3 , 8H VISC 
2!N = ,F7.6,7H CON IN = , F 6 . 5 , 6H KR I N* ,F 2 . 0, / / // ) 

1001 F0RMATI6H TOUT*, F 5. 2, 6H POI 'T* , F 5. 2 » 6H DOUT= , F5 . 3 ,6H HOUT*, F6.2»6H 
1 S0UT*,FA.2, 7H CPPUT=,F4. 2, 7H C VOUT * , F4 . 2 , lOH S CNI C OUT= , F6 . 0 , 9H VI 
2SCOUT-,F7.6, RH CONCU T=,F 6. 5, 7H KR0UT*,F2.0I 

STOP 

END 


THERM30YNAM IC AND TRANSPORT PROPERTIES FOR METHANE PC*45,66 ATM, TC* 190 .7 7 K, ROC*. 162 G/CC 
190.77 IS OUT OF RANGE FOR T IN SUB. -ENT 

190-77 IS OUT OF RANGE FOR T IN SUB. -DENS 

TIN- 200. PIN= 103. DIN-0.260 HIN* 643.1 SIN* 7.07 CPIN- 5.32 CVIN* 1.90 SON I C lN-56429 . V I SC IN -. 000300 CONIN-,00081 KRIN-3. 
TDUT-B0.43 POUT-45. 66 DOUT-0.243 HOUT-621.66 SOUT-7.07 CPOUT-1.84 CVOUT-1,96 SON I COUT -40 593 . VI SCOUT- .000270 CONOUT-. 00 069 KROUT-2. 
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PROBLEM 3 


Determine a temperature -entropy (T-S) diagram for fluorine from 55 to 200 K with 
pressure as a parameter. Also determine the isoquality lines from 0 to 1 in increments 
of 0. 1. Let the pressures be as given in the following table: 


Pressure, 

MPa 

0. 1 

5.215 

1 

6 

2 

7 

3 

8 

4 

10 


The problem can be solved by incrementing temperature (KS=1) or entropy (KS=5). How- 
ever, it is faster to increment temperatures. Therefore, select the temperature incre- 
ment to be 5 K. 


COMMON/PROPTY/KUt DL i 0 V r HL » HV > St SL , S V, CV ,C VL i CVV,CP » CPL i CPV » GAMMA, 
lGAMMAL,GAHMAV,C,CLtCVP,MU,MUL,MUV,K ,KL , KV , SI G MA , EXC ESK , EXC L ,eXCV 
REAL MttNULtMUVtKtKL, KV 

DIMENSION P( lOttTITL I 7 », X ( 2000 1 , Y( 20001 

DATA TITL/42H TEMPERATURE-ENTROPY DIAGRAM FOR FLUORINE / 
DATA P/. 1, l.,2.t 3>,A.t5.21Sf6. ,7.,8.tl0./ 

DATA TSTART, PC ,N /55. t 5. 215,40/ 

CATA TSTART, PC ,N/B0. , 5.215, 14/ 

CATA NAM/2HF2/ 

CALL SETUPINAMl 

KU*1 

KP-2 

KS* I 

M = 0 

DO 3 1-1,10 
T -TSTART 

If(P( Il.GT.PC) GO TO 5 

KR- 1 

TSAT-0. 

CALL GASPIKStKP, TSAT,PtII,0,H,KRl 

XIMaU-SL 

VIM»n-TSAT 

X<M*11 »-SV 

YIM + UI-TSAT 

CO 2 IJ=1,9 

NN-H^-IJ +l 

XX-0.1*F LOAT I IJ) 

X(NN1 = XX*SV+I l.-XXI*SL 

2 Y(NNI-TSAT 
M-M*U 

5 00 3 J»1,N 

IF(T.EQ.TSAT) GO TO 3 
KR-0 

CALL GASP(KS,KP, T,Pm ,0,H,KRJ 
M-M* 1 
X(M )=S 
Y(M )-T 

3 T-T+5. 

i^RI TE(E, 10001 (X(JI.Y(JI, J = 1,MI 
1000 FORMAT (10(?X.F7,3M 
CALL LRPLOT ( X,Y,M» 

STOP 

END 
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THE REGION I2S>143K FOR T AND P GREATER THAN 10 ATM YIELDS POOR RESULTS FOR THE DERIVED PROEPP T1 E S~BE WARE 


thermodynamic and 

14A.31 IS OUT 

KA.31 IS OUT 

transport 

QF RANGE 
OF RANGE 

PROPERTIES 
FOR T in 
FOR T IN 

FOR FLUORINE PC» 
SUB, -ENT 
SUB .-DENS 

51 ,47ATMi 

1 TC*144. 

31K,RH0C» 

.5738G/CC 

2.2P6 

84.845 

2.490 

84. 845 

2.695 

84.845 

2.899 

84.845 

3.103 

€4.845 

3.308 

8A.845 

3. 512 

84,845 

3.716 

84.845 

3.921 

84.845 

4, 125 

84.845 

A. 32*3 

84.845 

2. 199 

80.000 

4.331 

85.000 

4.377 

90.000 

4.421 

95.000 

4.46 2 

IOC. 000 

4.500 

105.000 

4,537 

110.000 

4.572 

115.000 

4.605 

120.000 

4.637 

125.000 

4,668 

130,000 

4.697 

135.000 

4.725 

140.000 

4,753 

145.000 

2.706 

111.834 

2.833 

111.834 

2,960 

11 1.834 

3.087 

111.834 

3.215 

111.834 

3.34 2 

1 11.834 

3.469 

111.834 

3.596 

11 1.834 

3.723 

111.834 

3.850 

111.834 

3.97 7 

111.834 

2. 196 

80.000 

2.2 86 

85.000 

2.370 

90.000 

2.450 

95.000 

2.527 

IOC. 000 

2.603 

105.000 

2.676 

110.000 

4.007 

115.000 

4.049 

120.000 

4.089 

125.000 

4. 125 

130.000 

4.159 

135.000 

4.191 

140.000 

4.222 

145.000 

2.884 

123.771 

2.981 

123.771 

3.077 

123.771 

3.174 

123.771 

3.271 

123.771 

3.368 

123.771 

3.464 

123.771 

3.561 

123.771 

3.658 

123.771 

3.755 

123.771 

3.85 1 

122.771 

2. 193 

80.000 

2.283 

65.000 

2.367 

90.000 

2.446 

95.000 

2.523 

IOC. 000 

2.598 

1C5.00C 

2. 673 

1 10.000 

2,748 

115.000 

2.825 

120.000 

3.86 5 

125.000 

3.915 

130.000 

3.959 

135.000 

3,998 

140.000 

4,035 

145.000 

3.00 8 

131.917 

3.08 3 

131.917 

3. 158 

131.917 

3.23 3 

131.917 

3.307 

131.917 

3.382 

131.917 

3.457 

131.917 

3.532 

131.917 

3.606 

131.917 

3.681 

131.917 

3.756 

131.917 

2.191 

80.000 

2,280 

85.000 

2.363 

90.000 

2.442 

95.00C 

2.519 

lOC.OOO 

2.593 

105.000 

2.668 

110.000 

2.742 

115.000 

2.817 

120.000 

2 .894 

125.000 

2,975 

130.000 

3. 798 

135.000 

3.854 

140.000 

3.90 1 

145.000 

3.119 

138. 2 18 

2.173 

138.218 

3.226 

138.216 

3.280 

138.218 

3.334 

138.218 

3.388 

138.218 

3.442 

138.218 

3.496 

138.218 

3.550 

138.218 

3.604 

138.218 

3.658 

138.218 

2.18 8 

80.000 

2.277 

85.000 

2.360 

90.000 

2.439 

95.000 

2.515 

ICC. 000 

2.589 

105.000 

2.662 

110.000 

2.736 

115.000 

2.810 

120.000 

2.885 

125.000 

2.962 

130.000 

3.04 7 

135.000 

3.698 

140.000 

3.774 

145.000 

3 .378 

144.312 

3.378 

144. 312 

3.378 

144.312 

3.378 

144.312 

3.378 

144.312 

3.378 

144.312 

3.378 

144-312 

3.378 

144.312 

3.378 

144.312 

3.378 

144.312 

3.378 

144.312 

2. 184 

80.000 

2.273 

85.000 

2.356 

90.000 

2.435 

95.00C 

2.510 

lOC.OOO 

2.584 

1C5.000 

2.657 

110.000 

2.729 

115.000 

2.802 

120.000 

2.874 

125.000 

2.948 

130.000 

3.026 

135.000 

3.120 

140.000 

3.531 

145.000 

2.182 

8C.000 

2. 271 

85.000 

2.354 

90.000 

2.432 

95 .000 

2.50 7 

ICO. 000 

2.58 1 

105.000 

2.653 

110.000 

2.725 

115.000 

2.797 

120.000 

2.868 

125.000 

2.940 

13C.000 

3.015 

135.000 

3.100 

140.000 

3.224 

145.000 

2.180 

80.000 

2.26 8 

85.000 

2.351 

90.000 

2.429 

95.000 

2.504 

100.000 

2.576 

1C5.000 

2 .648 

IIC.OOO 

2.720 

115.000 

2. 791 

120.000 

2. 861 

125.000 

2.931 

130.000 

3.00 2 

135.000 

3.061 

140.000 

3.178 

145.000 

2.177 

80.000 

2.265 

85.000 

2 .34 8 

9C.000 

2.425 

95.00C 

2.500 

100.000 

2.572 

105.000 

2.644 

1 1C. 000 

2.715 

115.000 

2,785 

120.000 

2.854 

125.000 

2.922 

130.000 

2.991 

135.000 

3 .06 5 

140.000 

3.151 

145.000 

2. 172 

80.000 

2.260 

85.000 

2.342 

90.000 

2.419 

95.000 

2.493 

100.000 

2.565 

105.000 

2.635 

110.000 

2.705 

II5.000 

2. 774 
3.115 

12C.000 
145. COO 

2.841 

125.000 

2. 907 

130.000 

2.972 

135.000 

3.040 

140.000 



Entropy. J/(g)(K) 
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PROBLEM 4 


Suppose you are asked to design a liquid -oxygen -cooled, copper -liner -type thrust 
chamber where it is required to know the variation of enthalpy with pressure at nearly 
constant temperature. Given the proposed design parameters of an inlet temperature of 
172*^ R and an inlet pressure of 6700 psia, it is necessary to find (3H/9P)rp over a range 
in temperature and pressure for use in a solution matrix. 

The (9H/9P),p is not directly available from GASP; however, (0P/0T) and 
(0P/0p),j. are available and with a little manipulation one can find (0H/0P)rp. From 
appendix E 

VaT/p 

where V = 1/p, and from the Bridgeman Tables 



The latter term is the volume expansivity multiplied by T or 

T \- 
[v 0T_ 

The (0H/0P)rp can now be found from GASP as follows: 

(1) The desired units are psia, °R, and lbm/ft^(KU=3). 

(2) The input is T and P. The output will be (0P/0T)^, (0P/0p)rp, and p. Set 
KS-1, KP=4, and KR=0. 
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(3) The units of 0H/0P will be ft^/lbm, and 0H/0P must be multiplied by 
144/778. 161 to return the KU=3 units, that is, 

ill X 144 in. ^ Btu Btu 

Ibm 778. 161 ft-lbf Ibm-psia 

An alternate procedure is to use the units of the program since 



is dimensionless, that is, 

(1) Assign KU=1, with KP and KR as before. 

(2) Convert P and T prior to calling GASP. 


P1=P/14.696; T1=T/1.8 
CALL GASP(KU,KP,T1,P1,D,H,KR) 

3 

(3) Then convert to the desired units. Note that the units of (0H/0P),p are cm 
and J/(g)(MPa) with no further conversion required. 


OIHENSOH P I 5) ,1 « 41 , HP T( 9) 

CPHM )N/PP(‘PTY/Klit DL , HL »H V, S» St# S V»C V»C VL »C VVtCPf CPI t CPV ,GAMHA, 

IGAMHAL ,GAMMAV , C t C L t C VP , M> I , , HUV, K , KL , KV » S 1 i “A XC £S K , EXC L , 0* CV 

Cn^'MDN/CEP IV/PDT, PTV»POTL , PO T V, P TVL ♦ P TV V 
CO^HON/CUM 12 3/CCD'^V( 5 I , TCONVt 5) tPCUNV(5) 

PFAL HUrHlJL, 4UV,K ,M., KV 

DATA P /40C0 .» 5000. , 6090, i6 700. , 700D. 

CATA T / 172.f 200. » 22 5. , 250, t275. ,300. * 3? 5. ,350. I 372. 

CATA NAHGAS /2H0 2/ 

CALL SETUPINAHGAS) 

KU-3 
KPsA 
KS> 1 

MPITbl6, 1001 

WR ITF4 6, 101) < TIJ ) , J-1, 9) 

DO 102 1-1,5 
DO 103 J*l,9 
K R*0 

CALL GASP <KS,KP,T< J ) ,PtII ,0,H,KR» 

10 3 HPT(J) = <1.-T( n7D*PTV/POT*OCONV)3l /TCUMVOJ )/D 

102 WR1TE(6,10A» P( I 1, (HPTI J) ,J-1,9) 

LOO format (IHl, 58H TABLE OF )OH/0TI FOR StLtCTED TEMPERATURES AN 

10 PRES SUP fcS //77) 

10 1 FORMATC 4X, 9( 6X,F 6. U //) 

lOA FORMAT < U,F 6. I, 9< 2X ,G 10.41 /) 

STOP 

END 



1 72.0 

200.0 

225,0 

250.0 

275.0 

300 .0 

325.0 

350.0 

372,3 

4 000 .0 

5 000 .0 
6000 .0 
6700 .0 
7000.0 

0.1422 
0.1328 
0.1248 
3.1 199 
0 • 1 1 80 

0.1949 

0.1788 

0.1657 

0.1579 

0.1548 

0.2587 

0.2322 

0.2116 

0.1998 

0.1952 

0.3440 

0.3005 

0.2684 

0.2506 

U.2438 

0.4613 
0.3874 
0,3376 
0 .3112 
0.3314 

0.6175 
0.4959 
0.4202 
0. 3819 
3.3680 

0.8 185 
0.6267 
0.5160 
0.4623 
0 .4432 

1.0558 

0.7750 

0.6223 

C.5503 

0.5251 

1.2 744 
0.9149 
0.7213 
0.631 T 
0.63Q6 
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PROBLEM 5 


Suppose that an odd set of units such as that given here are, for some unknown 
reason, required in a user’s program and that the user also requires the use of GASP 
for PVT values. 


Quantity 

New system 
of units 

Equivalent in SI system 
of units 

Length 

Cubit (cb) 

45. 72 cm 

Mass 

Stone (st) 

14 Ibm or 6350. 29318 g 

Time 

Millenium 

1000 yr or 3. 1556926x10^^ sec 

Energy 

Megaton 

4.2x10^® J 

Temperature 

Electron volt 

1.6021x10 ^ 16419x10^ K 


equivalent (eVe) 

1.380622x10"^^ 

Force 

Megapoundal 

0. 1382549121376 MN 


Converting this system of units so that GASP can calculate PVT values requires the 
following conversion factors: 


To convert from- 

To- 

Multiply by - 

Pressure, megapoundal/cb^ 

MN/m^ 
(or MPa) 

0. 138254954376 , 3 
(0.4572)^ 

Temperature, eVe 

K 

1. 16419x10'* 

Density, st/cb^ 

g/cm^ 

6350. 29318 , 3 333335 

(45. 72)^ 

Enthalpy, megaton/st 

J 'b 

4 ?xin 1 0 

6350. 29318 

Entropy and specific 
heats, megaton/st -eVe 

J/g-K 

4.2x10*^ ft 

- u. DolUoy |X1U 

6350.29318 x 1. 16419xlo'* 

Sonic velocity, cb/millenium 

cm/sec 

45.72 _ j 44 88103'^lfl 

3. 1556926x10*® 

Surface tension, 
m egapoundal/cb 

dyne/cm 

0 138254954376X10“ , 3 3o23949„,,o9 

45. 72 

Thermal conductivity, 
megaton/cb-eVe -millenium 

W/cm-sec 

4.2x10*® 

- . _ 0 RiVI^QA 

DUU^ob 

45. 72 X 1. 16419X10^ x 3, 1556926x10*® 

Viscosity, st/cb -millenium j 

g/cm-sec 

6350.29318 - 4 4014205x10-9 

— ^ - ‘tU lU 

45. 72 X 3. 1556926x10*® 


convenient source for units conversion is 

Mechtly, E. A.; The International System of Units, Physical Constants and Conversion Factors. 
NASA SP-7012 (revised), 1973. 
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The following DATA statements in GASP must now be altered: 
(1) DATA statements to be altered in BLOCK DATA 


DATA TCONV/1. , 1., 1.8, 8. 5896632E-5, 1. 

DATA PCONV/1. , 9.8692327, 145.03774, 1.5119302, 1. 

DATA DCONV/2* 1. , 62.42796, .3291688, 1. 

DATA SCONV/2* 1. , . 23900574, 1. 7602257E-9, 1. 

DATA CCONV/2* 1. , .0328084, .69022149E9, 1. 

DATA HCONV/2* 1. , . 4302103, 1. 5119746E-13, 1. 

(2) Other DATA statements to be altered if these properties are to be completed 
SUBROUTINE SURF 

DATA STCONV/2*!. , 6. 8521766E-5, .3306934E-8, 1. 

SUBROUTINE VTSC 

DATA MU CONV/2* 1. , . 67196 899E-1, .22719938E9, 1. 

SUBROUTINE THERM 

DATAKCONV/2* 1. , .01606044, .39992226, 1. 

The program for the units conversion is as follows: 


COFMON/PPDPTY/KU, OL ,0 V , HL ,H Vi S t SL , SV,CV,C VL VV,CP tCPL i CPV t GAMMA, 
IGAMMAL,GAMMAV, C,CL ,CVP,MU, MUL ,MUV,K,KL,KV,SIS MA ,£XCE5 K, EXC L,£XCV 
REAL MU,MUL ,MUV,K ,KL, KV 
DATA NAM/2MH2/ 

CALL SETUP! NAM » 

TC-2. 832527F.-3 

PC» 1.<J5A6319 

XU* A 

XS-1 

KP»63 

J*0 

TST ART*l.7lT9326£- 3 
DT-,2 IA7A16E-4 
DP- ,30<3926E- I 
TSTOP-TC 
DO 102 1*1,52 
P-FLOATf I) *DP 
MRITE (6, 101) P 
101 POPMATl 1H1,F10.3) 

T-0. 

XR« 1 

CALL GASP(KS,KP,T ,P,D,H,KR t 

IFIKR.EO.U MRITE(6, 333) P , T, D L ,HL , SL ,C PL ,C L, KL ,MUL ,S I GMA 
IFIKR.eO.l) WRITE!6,333) P , T ,0 V ,HV, SV,C P V,C VP , K V ,Mt)V 
WRITE! 6, 1000) 

WRITE! 6, 1001) 

100 I FORMAT I 1X,9HM(>D/I CB )2 , 6X , 3HE VE , 8 X, 8H S 7/ !C Bl 3 , A X ,5H MT/ ST ,7X ,9HHT/ST 
1-EVE, 2X, 9HMT/ST-EV£,3X,5HCP /ML , 6X , 1 2H MT /C B-cV E- ML ,2 X, 8HST / C6-ML ) 

1000 FORMAT! 3X, IH^ , lOX , IHT, 12X , IHO , lOX, IHH ,l I X ,1 HS , 1 1 X , 2 HC P , 12X , IHC, lOX , AHV I SC 
1, AMVI SC, 8X, AMCONO/ ) 

T-TSTART-CT 

DO lOQ J-1, 100 

IF (T .GE.TST3P I GO TO 102 

T*T*0T 

<R-0 

CALL GASP(KS, KP,T,P ,D,H,KRI 
100 WRITE(6, 333I P , T , D , H , S, C P ,C , X ♦ MU 

333 format ( 10G12.A) 

102 CONTINUE 
STOP 
END 
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C STORES THE COEEFICIFNTS FOR ALL FLUIDS FOR THE EQUATION OF STATE 
C ANC THE TRANSPORT EQUATIONS. 

C STORES CONVERSION CONSTANTS NEcOED BY ALL FLUIDS 

BLOCK CATA 

COMMON /GASES/MATC HI 10l,MESSAr,( 15,101 
COMMON/ CON123/ OCONV ( 5 > , TC ONVl 5» ,PCONV( 5 I 
COMMON/CONV4/SCONVf 51 
COM MON/CONV5/CCONV15I 
C0MM0N/C0NV6/HC0NVI 51 

CCMMDN/ALLCOF/COF( 53, 101, TCCOFI 15,10) ,AKSTCO( 18,4) ,DIST (10 I , 

IWTMOL ( 10 ),EPSOK< 10),ZETA(10»,FFI10), SWT( 10 ) ,KSWTI 10 ) ,DIFTT ( 10 ) , 

2R HOSHT I 10 ) , OTR [PL ( 10) , AMUC( 10) , 0MUC (10* 

OIMENS ION MCH4( 15 ) , MN 2 ( 15 ) , M02 ( 15 ) , MAR ( 15 ) ,MC02 ( 15 ) ,MNE ( 15 * ,MCOI 15 
1),MHE( 15),MF2( 15),MH2( 15) 

F OUI VALENCE! MESSAG( 1, 1 ) , MCH4C 1* I , (MESSAG( 1,21 ,MN2( 1)1, (MESSAG( 1,3) 
1,MQ2( D), (MESSAGI 1,4), MAR ( 1 ) ) , ( ME SSAG( 1 , 5 ) , MC02 ( I ) ) ,< MESSAGf 1,6 ), 
2MNE ( 1 )), (MESSAGI 1,7 ), MCOI I* ) , (ME SSAG ( 1 , 6 ) , MHE ( 1 ) ) , ( HES S AG I 1 ,9 ) , MF2 
3( I) ),( MESSAGI 1, 10) ,MH2 (IM 

DAT A ( MATCH! I ) , I* 1, 8) / 3HCH4, 2HN2,2H02 ,2HAR,3HCD2 , 2HNE , 2HC0,2HHE/ 
DATA MATCH(9)/2HF2/ 

DATA MATC)^( 10 I/2HHZ/ 

DATA MCF4(l) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR ME 
ITHANE PC-45.66 ATM, TC -1 90 , 7 7 K,R0C=.162 G /CC / 

DATA MN2I1) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR N 

IITROGEN PC*33. 72ATM, TC-126. 3 K, ROC = . 3105G/CC / 

OATA M02(l) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FDR OK 

lYGEN PC-50. 16ATM,TC»154. 78 K,ROC -.4325G/CC / 

DATA MAR(l) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR AR 

IGON PC- 48.014ATM, TC-150.7 K, ROC*. 531 G/CC / 

DATA MC02( 1) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR CO 

1 2 PC*72.069ATM, TC»304.2i K, ROC*. 464 G/CC / 

DATA MNE(l) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR NE 

ION PC* 26.19ATM , TC*44.4 K, RH0C-.483 G/CC / 

DATA MCOIl) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR CO 

I PC-34.529ATM, TC-132.91 K, RH0C*.299T G/CC / 

DATA MFE(l) /90H THERMODYNAMIC AND TRANSPORT PROPERTIES FOR HE 

1 PC - 2.245ATM, TC * 5.2K, RMOC * .0693G/CC / 

OATA MFZ(l) /90HTHERMODVNAM1C AND TRANSPORT PROPERTIES FOR FLU 

lOPTNE PC-5U47ATM, TC » 144. 31K , RHOC ». 573 8G /CC / 

OATA MH2(1)/ 90HTHERH0DYNAMIC AND TRANSPORT PROPERTIES FOR HYDRO 
IGENPC-12.759ATM,TC*32.976K,RH0C-.03143G/CC / 

DATA TCONV/l.,1., 1.8, 8, 5896632E-5, I . / 

DATA PCONV/ 1., 9, 8 692327, 145.03 7 74,1.5119302,1. / 

DATA DCONV/2* 1 .,62. 42 796, 0, 329 1 688, 1 . / 

DATA SCONV/2* 1., . 23900574, 1. 7602257E-9, 1. / 

OATA HCONV/ 2*1.,. 4302 103, 1 . 5119746E-13, I . / 

DATA CCONV/2* 1. , .0328004, .69022149E9, 1. / 

(The remainder of BLOCK DATA Is unchanged. ) 


C COMPUTE VISCOSITY MU GIVEN TtMPERATURE T AND DENSITY D. 

C UNITS ARE SPECIFIED BY KU. REGION IS SPECIFIED BY KR. 

C 

C (U-U*)2 PARAMETER IS CALCULATED FROM JOS SI , STI EL , AND THODOS 

C VOL. 8 NO.l A .1 ,CH.E .JOURNAL PAGE 60 

C 

SUBROUTINE VI SC ( KU, KP , T ,D , MU) 

DIMENSION COMEGAI 15), MCONVI 5) 

real mus,mconv,mu,mumz 

OATA ( COMEGA I I ) , I =1, l5>/2, ,4, . 522 88, - 1 . 3 3 1 1 50 22 , , 56 1 60244 , 

1 1 ,498 94 829, - 1 .8468 152 6, 1. 589 466 84,. 60206, . 324 81 334 E-1 , 

2- .2 35 240 79, . 652 23929, - 1 . 03095995 , 1. 40383078 , 2 . 6020 6 / 
COMMON/COFHU/EPSK ,kH,0 IS,RH0CRT,2ETA ,AMUX,6MUX 
OATA MCONV/2*!., . 671 96899E- 1 , . 227 1 9938E9 , I , / 

(The remainder of VISC is unchanged. ) 


C COMPUTE THERMAL CONDUCTIVITY K GIVEN TEMPERATURE T AND 

C DENSITY D. UNITS ARE SPECIFIED BY KU. REGION IS SPECIFIED 

C BY KR . 

C 

SUBROUTINE THERM I KU, KR , P , T ,D ,E KCE SK , K) 

COMMON/HELFLU/ IHE, IFL, IHY 

C0MM0N/TC0ND/CKHKST(9) , XLAMR,ZC5, RHOCR, TCR, TCSTAR, CKSTAR(18) 
COMMON/REND/R iDUMYI 28 ) 

COMMON/COFMU/EPSK ,WM,0 IS.RHOCRT, ZFTA ,AMUX,BMUK 
COMMON /REFNO /SOTO, HOTn,CPOCOR ,MTERM, STERN 
COMMON /COCPO/TO, C COPl, CCn P2,CC0P 3, CC0P4,CC0P5 
DIMENSION OMEGA l( 9) ,0MEGA2( 15) 

REAL KMKS, KSRAT, K, KCONV jKZERO 
0 IMENS ION KCDNVI 5 ) 

OATA (OMEGAK I ) , I * 1, 9 ) / 1 . , 4. . 522 8, , 82 359030F- I ,- . 539 8 23 1 6 , 

11.28552593,-1 .5 3509952, 1. 44223 760,2. 602 / 

DATA (0MEGA2I I ) , 1 = 1 , 1 5 ) / 2 . , 4. . 522 88,-1 . 331 1 50 22 , . 56 160244 , 

11 .49994929,-1 .94681526, 1. 58946684,. 60206, . 32481 334 E-l , 

2- .2 35 24C79, . 652 23929, - 1 . 0 3095995 , I , 403830 78 ,2 . 60206 / 

DATA KCONV/2* 1, , .01606044, , 39992226 ,1,/ 

(The remainder of THERM is unchanged. ) 
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SUBftOUTlNfc SURF(KU,M,T,SICMAI 
CP'lHON/SURCD'l/PCTCtTCR ITfFIXI T, ZET 
COMHDN/hELFLU/ IHE,IFL ,IHY 
COMMON / [ERROR /IROUT 
DIMENSION STCONV(5< 

DATA STCONV/2*! .t 6.85 21 766L-5, . 3306 93AE-8» I ./ 

(The remainder of SURF is unchanged. ) 


0.031 

0.3064E-01 

0.3064E-01 

P 

MP0/(C9I2 
0.3064E-01 
0.3064E-31 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.30646-01 
0.3064E-01 
0.3064E-01 
0 .3364t-01 
0.3064E-01 
0.3064E-01 
0. 30646-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.30646-01 
0. 30646-01 
0.30646-01 
0.3064E-01 
0. 3064 E- 01 
0.3064E-01 
0.30646-01 
0.3064E-01 
0.30646-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0 .30646-01 
0.3064E-01 
0.30646-01 
0.3064E-01 
0.3064E-01 
0.3064E-01 
0.3364F-01 
0.3064E-01 
0.3064E-01 
0.30646-01 
0.30646- 01 
0.3064E-01 
0 .3064 6- 31 
3. 3 064 L- 01 
0.3064E-01 
0.3O64E-31 
33.000 
0. 3 064 E- 01 


0 .1362E-02 

0. 2477E-01 

0 ,13626- 02 

0. 1053E- 03 

EVE 

ST/ICB 1 3 

O.1718E-02 

0, 8 236E-04 

0. 1739E-02 

0. 81336-04 

0. 1761E-02 

0, 80266-04 

0.1782E-C2 

0.79256- 04 

0. 18046-02 

0. 7027E-O4 

0.1825E- 02 

0. 77316-04 

0.1847E-C2 

0. 7638E-04 

0.18686- 02 

0. 7547E-04 

0. 1093E-C2 

0. 74586-04 

0.19 HE- 02 

0.7371E-04 

0.1933E-02 

0.7286F-04 

0.1954E-C2 

C, 72046-04 

0. 19766-02 

0.7123E-04 

0.1997F-02 

0, 70446-04 

0.2019E-02 

0. 6966E-04 

C. 2040 6- 02 

0.68916-04 

0.2062E-02 

0. 68176-04 

C.2083E-02 

0, 67446-04 

0. 21046-02 

0. 6674E- 04 

C.2126E- 02 

0.66046-U4 

0.2147E- C2 

0.65376-04 

0.2169E-02 

0.6470E- 04 

0.21906-02 

0, 64056-04 

0.2212E-C2 

0. 6341E- C4 

C. 22336-02 

0.62796-04 

0.2255E-C2 

0. 6218E-04 

0.22 76E-C2 

0, 6158E- 04 

0.2298E-02 

0. 60996-04 

0.23196-02 

0, 6041E- 04 

0.234 IE- C2 

0. 5904E- 04 

0. 23626-02 

0,59296-04 

O.2304E-C2 

0, 5874E-04 

0. 24056- C2 

0.50216-04 

0.2427E-02 

0. 57686-04 

0.2448E-02 

0. 57166-04 

0.24 70E-02 

0. 5666E-04 

0.24916-02 

O.5616E-04 

0.2512E-02 

0.55676-04 

0.2534E-02 

0. 5519E- 04 

0.25556- 02 

0.54726-04 

0.25776-02 

0, 5425E-04 

0.2598E- 02 

0. 538 JE-04 

0,26206- C2 

0. 53356-04 

0.26416- C2 

0.52916-04 

0.2663F-02 

0. 52476- 04 

0.26841-02 

0. 52056-04 

0,2 7066- 02 

0. 51636-04 

0.27276-02 

0. 5122E-04 

0.2749f-C2 

0. 50816-04 

0.277UE-C2 

0, 5J41E-04 

0.27926-02 

0.50026-04 

0.2813E-02 

0. 49ft 36-04 


IS POT OF RANGE FOR T 
0.2835E-02 0.4925E-C4 


-0.4445E-10 

0.2413E-10 

H 

HT/ST 

0.3077E-10 
0. 3117E-10 
0.3157E-10 
0.3197E-10 
0.3237E-10 
3.32 76E-10 
0.3316E-1 J 
0.3356E-10 
0. 3395E-10 
0.3435E-10 
0.34 75t-i0 
0.3514E-10 
0.3554t-l0 
0. 3594L-10 
0.3633E-10 
0.3673E-10 
J.3713E-10 
0.3752E-10 
0.3792E-10 
0. 3831t-10 
0.3871E-10 
0.3910E-10 
0.3950E-10 
0.3989E-1 0 
0.4029E-10 
0.4068E-10 
0.4L08E-10 
0.4147E-10 
O.4107t-lO 
0.4226E-10 
0.4265E-1 3 
0.4305fc-l 0 
0.4344E-10 
0.43 846-13 
0.4423E-10 
0.4462E-10 
0.4502E-10 
0.4541E-10 
U,458lt-l J 
0.462JE-10 
0.4659E-10 
0.4699t-l J 
0.4738E-10 
0.4777E-10 
O.40l7t-lJ 
0.4H66t-10 
O.4095t-lO 
0.4935t-10 
0.4974t-10 
0.5013E-10 
0.5052L-10 
0. 50926-10 
IN SUP,- SURF 
0.5131L-IO 


0. 10486-07 
0. 6083E-07 
S 

HI/ ST-6V6 
0. 65166-07 
0. 65396-07 
3.6562E-07 
0. 6585E-07 
0.6607E-07 
3. 6629E-07 
0. 6653E-07 
0. 66 726-07 
0. 6693E-07 
0.6714E-07 
0.67341-07 
0. 6755E-07 
0. 6775E-07 
0. 6795E-07 
3. 68156-07 
3. 68346-07 
0. 6853E-07 
0.6872L-07 
3.68916-07 
0.6913E-07 
0. 69296-07 
0. 6947E-07 
0. 6965E-07 
0. 6983E-07 
0. 7001E-07 
0. 7018E-07 
0. 7036E-07 
0. 7053E-07 
0. 70706-07 
0. 70876-07 
0. 71046-07 
0. 71206-37 
0. 7137E-07 
3, 71536-07 
0. 71696-07 
0, 7185E-07 
0. T201C-07 
0. 7217E-07 
0. 7232E-07 
0. 7240E-O7 
3. 7263E-07 
0. 7279E-07 
0. 7294E-07 
0. 7309E-07 
0. 73236-07 
3, 73386-07 
0, 73536-07 
0. 7367E-07 
3. 73816-07 
0. 73966-07 
0. 74106-07 
0. 74246-07 

3. 74 386-07 


0.14526-07 

0.18856-07 

CP 

MT/ST-EVE 

0. 18566-07 

0.18556-07 

0.10546-07 

0.18536-07 

0.18526-07 

0.10516-07 

0.18506-07 

0.18496-07 

0.18486-07 

0.18486-07 

0.1847E-07 

0.1846E-07 

0. IB45E-07 

0.18456-07 

0.18446-07 

0.18436-07 

0.1843E-07 

3.18426-07 

0.18426-07 

0.18416-07 

0. 1043 E-07 

0.184J6-07 

0.18396-07 

0. 1839 E-07 

0.18386-07 

0. 18 38 E-07 

0. 1838 E-07 

0.18376-07 

0. 1837E-07 

0, 1036E-O7 

0.10366-07 

0.18356-07 

0.18356-07 

0.18356-07 

0.18346-07 

0.18346-07 

0.1834E-07 

0. 18336-07 

0. 18336-07 

0. 18336-07 

0,18326-07 

0. 18326-07 

0.18326-07 

0. 1831E-07 

0. 18316-07 

0, 1831E-07 

0. lBilE-07 

0.18306-07 

0.18306-07 

0.18336-07 

0.10336-07 

0. 1829E-07 

0. 18296-07 


0.83366«14 

0.2242E*14 

C 

CB/Mt 

0.25 38E+ 14 
0.25546 *14 
0.2571E+14 
0. 25876*14 
0.2603E «14 
0.26 196*14 
0.2635E*14 
0.265IE*14 
0.2667E*14 
0.2683E+14 
0.2698 6*14 
0.27146*14 
0.27296*14 
0.27446*14 
0.27606*14 
0.27756*14 
0.2790E*14 
0.2805E*14 
0.28196*14 
0.2834E* 14 
0.28496*14 
0.2863E*14 
0.28786*14 
0.2692E+14 
0.29076*14 
0,29216*14 
0.2935E+ 14 
0.2949E+ 14 
0,29636*14 
0.29 77E*14 
0,2991E*14 
0.30 0 5£*I4 
0.30196*14 
0.30 326*14 
0.3046E*14 
0.30606 + 14 
0.30736*14 
0.30876*14 
0.3100E* 14 
0.3U3E + 14 
0,31276+14 
0.31406+14 
0.3153E+14 
0.3166E+14 
0.3179E + 14 
0.3192E+14 
0.32056+ 14 
0.32186 + 14 
0.32316+14 
0.3244E+14 
0.32566+14 
0.3269E+14 


0.35176-03 

0.53526-04 

Vise 

MT/CB-6V6-ML 
0.62176-04 
0.62966-04 
0. 63766-04 
0.6455E-04 
0.65356-04 
0.6615E-04 
0.66946-04 
0.6774E-04 
0.68536-04 
0.6933E-04 
0.7013E-04 
C, 70926-04 
0.7172E-04 
0.7251E-04 
0.7331E-04 
0.74UE- 04 
0.7490E-04 
0. 7570E-04 
0.7650E-04 
0. 7729E-04 
0.7809E- 04 
0.78886-04 
0.79676-04 
0. 80456- 04 
0.8124E-04 
0.8203E- 04 
0.82816-04 
0.8360E-04 
0,04396-04 
0. 85186-04 
0.85966-04 
0.86756- 04 
0.8 7546-04 
0.88326-04 
0.8911E-04 
C. 8990 6-04 
0.90696-04 
0,91476- 04 
0.92266-04 
0,93056-04 
C.9384t-04 
0.9454E- 04 
0.95236-04 
0.9593c- 04 
0.96626-04 
0.9732 6-04 
0.98016-04 
0.98716-04 
0.99416-04 
0. 10016-03 
0, 10C8E-03 
0. 10156-03 


0.45 796+ 05 

1952.6 
CONO 
ST/CB-ML 

2476.8 

2507.7 

2538.5 

2569.2 

2599.8 

2630.3 

2660.8 
2691.1 

2721.4 

2751.6 

2781.7 

2811.7 

2841.7 

2871.5 

2901.3 

2931.0 

2960.6 

2990. 1 

3019.5 

3048.8 

3378.1 

3107.3 

3136.4 

3165.4 
3194.3 

3223.2 

3251.9 

3280.6 

3309.2 

3337.8 

3366.2 

3394.6 

3422.9 

3451.1 

3479.2 

3537.3 

3535.2 
3563,1 

3591.0 

3618.7 

3646.4 

3674.0 

3701.5 

3729.0 

3756.3 

3783.6 

3810.9 

3638.0 

3865.1 

3892.1 

3919.1 

3945.9 


0.3282E+14 0.1022E-03 3972.7 


0. 8032E-O8 
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APPENDIX K 


SPECIFIC HEAT, ENTHALPY, AND ENTROPY OF 
PARAHYDROGEN AT ZERO PRESSURE 

The dilute -gas heat capacity of parahydrogen at constant pressure is significantly 
different than for other gases and had to be handled separately. 

The associated sketch is used to aid in defining the regions and the appropriate con- 
stants to compute C^ q. The form of equation (B19) 

5 

i = l 

had to be retained to maintain flexibility. Therefore, the parahydrogen C q curve 
was broken into four regions as indicated by the sketch. Subroutine SETCPO(T) was 
added to define the appropriate values of m^, AH, and AS for each region. Recall 
that evaluation of H and S requires f C dT and /c^ „ d In T, respectively 
(see eqs. (B24) and (B25». P.U P.O 



-20.268 40 150 500 T 


For hydrogen, these integrals are region dependent; 



where T^ represents the lower bound of a region. 
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The values of m^, AH, and AS are as follows: 



20. 268 < T 

<40 

40 <T < 150 

150 < T < 500 

T > 500 

mi 

m„ 

-3 

“4 

■"5 

AH 

AS 

10.3121 

C 


4. 759936 
-0.21977388 
0. 32100769x10”^ 
-0. 12061 500 2x 10 
0. 57121808X10”® 
-62.9775 
-9.9313 

6. 6557899 
0. 15621077 
-0.8613643x10"^ 
0. 18972274x10"^ 
-0. 144 18461x10"® 
-147.6 
5.361 

4.4114861 
-0.7176787X10”^ 
0. 18638538X10”® 
-0. 5306547x10”® 
0.46649305x10”^® 
61. 7 
-16. 707 


As one might anticipate, stepwise integration produces small discontinuities in S and H 
and irregularities in other derived properties at these boundaries. 
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TABLE I. - PVT RANGES^ AND CRITICAL PARAMETERS USED IN GASP 


Fluid 

Temperature range, 
K 

Pressure range, 
MPa 

Critical 

temperature, 

T 

K 

Critical 

pressure, 

Pc- 

MPa 

Critical 

density, 

g/cm'’ 

T . 
min 

T 

max 

P . 
min 

P 

max 

P-H2 

13. 8 

3000 

0. 101325xl0‘^ 

100 

32.976 

1. 2928 

0.03143 

He 

3.0 

600 

. 010132 

10. 1325 

5.2 

. 2274644 

.0693 

Ne 

24. 54 



.0101325 

20.29 

44.4 

2.6537 

.483 

CH4 

90.66 



.01167 

50.67 

190.77 

4. 627 

. 1620 

CO 

68. 14 

1 


.0101325 

20. 27 

132.91 

3.4986 

. 2997 

^2 

64 

1000 

.0101325 

50.67 

126.3 

3.417 

.3105 

0 

CO 

70^ 

500 

.0101325 

100 

154.78 

5.083 

.4325 

^2 

53.48 

500 

.011 

20.3 

144.31 

5. 215 

. 57375 

Ar 

83.78 

1000 

.0101325 

50. 65 

150.7 

4. 865 

.5310 

CO2 

a . 

216. 56 

1000 

. 0101325 

50.67 

304.21 

7. 3835 

.4640 


* « 1 1 

As a general rule, the PVT ranges may be extended with some confidence; however. 


derived properties do not usually follow. 

Ranges to 54. 35 K; however, derived values below 70 Kare questionable. 
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TABLE n. - COEFFICIENTS FOR EQUATION OF STATE (B2) FOR TEN FLUIDS 


Coeff- 

icient 

Fluid 


CHij 

^2 

°2 

Ar 

co^ 

R 

0.51B251005>00 

0. 29679700E+00 

C. 259831996+00 

0.20812 8006+00 

0. 18391799E+00 

n. 

0. 17191020E^01 

0.480581756+00 

0.3^8110776+00 

0.198259206+00 

0.224885586+00 


-O. 863664028+03 

-0. 150470106+03 

-0.140706786+03 

-0.817331196+02 

-0.137179656+03 

^3 

0. 250952368+05 

0.260713656+04 

0.25061744C+04 

0.177774706+04 

-0. 144302146+05 

-0 • 125338488+08 

-0.12 792 742E+07 

-C. 100813456+07 

-0.824065446+06 

-0. 29630491E+07 

"5 

0. 341695478+09 

O.29436220E+O8 

C. 190741646+08 

0.316660986+00 

-0. 206060396+09 

0.755236098+00 

0. 375002646+00 

-0. 401349666-02 

-0.44202671^-01 

0.455543936-01 

0 

n? 

""8 

^9 

12 

^15 

"^16 

Hit 

^18 

J?19 

^'20 

n^i 

^22 

^23 

^24 

•0. 12111233E+03 

-0. 50738465E+02 

0. 651721126+02 

0.621614206+02 

0.770428406+02 

0.20547188E+06 

0. 14499236E+05 

C. 10962206E+05 

0. 1 14432486 + 04 

0.406023716+05 

0. 323375406+02 

0. 144099806+01 

0.69721580E+00 

0.47797520E+00 

0.400295096+00 

-0.6194831 76+04 

-0.241367766+03 

-0.262424496+03 

-0. 1964522 76 + 03 

-0.394360776+03 

-0.256038036+02 

0.28954771E+00 

0.19137800E+00 

-0.215727546+00 

0.121152866+00 

0. 11556713E+04 

-0.276137996+02 

0.294167716+02 

0. 165441416 + 03 

0. 107833866+03 

0. 274252976+05 

0.360482646+03 

C. 789320766+02 

-O.201421126+O2 

0.439623366+02 

0.494996306+08 

-0.20083357E+07 

-0. 192315806+07 

0.825320586+05 

-0. 365055456+08 

-0. 119561356 + 1 1 

0. 432651846+09 

0.46108240E+09 

-0.915383776+07 

0. 194905116+11 

0.88302981E+12 

-0. 165135216+11 

-C.39936263E+11 

-0.18340752E+10 

' -0. 291867 186+13 

-0.317134866+10 

-0. 10141439E+08 

-0.56689950E+C7 

-0.338581366+07 

0.243586276+08 

0. 123020286+13 

0.472163966+10 

0.136442866+10 

0. 155328866+10 

-0.375465306+11 

-0.644992946+14 

-0. 120164186+12 

0.91977197E+11 

-0.674795686+11 

0.110981416+14 

0.370000006+02 

0. lOCOOOOOE + 02 

0.540000006+01 

0.350000006+01 

0.500000006+01 

0. 

0. 

c. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

C. 

0. 

..k 

0. 


Coeff- 

icient 



Fluid 




Ne 

CO 

He 

F 

2 

»2 

R 

0. 41185435E+00 

0.29 6920076 + 00 

0.207722246+01 

0.218815906+00 

0. 412604866+01 


0.428792776+00 

0.36547544E+00 

0.844702456+01 

0.210515396+00 

0.444461506+92 

^2 

-0.41617333E+02 

-0. 80241 533E+02 

-0.234056436+03 

-0.811752436+02 

-0.386596046+04 


-0. 153683886+04 

-0. 167138416+05 

C. 478576626+02 

0. 230646306+04 

-0.10966551E+06 

0.217055836+05 

0.131290956+06 

-0.119375406+03 

-0.63183150E+06 

0. 120800226+07 

"5 

"6 

0 . 

0 • 

0. 

0. 969089666+07 

-0.547476556+07 

0.523777806-01 

0.653087106+00 

0.202301856+02 

0.259336606+00 

-0.332786476+03 

n^ 

^8 

0. 318323766+02 

-0. 801314976+02 

0. 146535216+04 

-0. 636894196+02 

0. 813457346+05 

0. 153D4725E+04 

0. 

0. 

0.682403106+04 

0.262942576+06 

Hq 

0. 86991276E+00 

0.733651576+00 

0. 

-0.137798996+00 

0.300639836+05 


-0.86565802E+02 

0. 

-0.11 1868666+05 

0.748421546+02 

-0.330249556+07 

^ -L ^ 
^11 

0. 

0. 

0. 

0.305164786+00 

-0.246867076+06 

^12 

0 • 

0. 

C. 763244 866+05 

-0.133040036+03 

0.475552346+08 

^13 

^14 

0. 41994280E+02 

0.413632476 + 03 

-0.707281256+05 

0.503157496+02 

-0.120643326+09 

0. 23856729E+06 

0.180611476 + 07 

-0.790460726+04 

0.403921866+06 

-0.492898276+08 

^16 

-0. 10444366E+08 

0.639432776+09 

C. 545307686+05 

-0.276104596+08 

0.159258946+10 

0. 

-0.66472139E+11 

C.159411476+06 

-0.427096236+10 

-0.871823656+10 

^18 

-0. 198280906+07 

-0.247670756+08 

-0.182597806+07 

-0.336597376+07 

0.663302666+11 

0. 709657016+08 

0. 965461546+10 

0.414625686+07 

0.658323026+09 

0.163666226+11 

n^9 

"20 

"21 

"22 

"24 

0. 

-0.472864236+12 

-0.168878296+08 

-0.619078806+09 

-0.129544196+14 

0. 13590153E+02 

0. 746324446+01 

0.405704266+03 

0.306000006+01 

0.105000006+04 

0. 

0.567253196+09 

C. 303082516+03 

0. 

0. 

-0. 125534396-02 

0. 

0. 

0. 

0. 

-0.76888D21E+03 

0. 

0. 

0. 

0. 

-0. 8493 83586 + 03 

0. 

0. 

1 : 

0. 

0. 
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TABLE m. - PRIMARY REFERENCES USED IN DERIVED AND 
TRANSPORT PROPERTY CALCULATIONS 


Calculation 

Fluid 


CH 4 

^2 

CM 

0 

Ar 

CO 2 

Ne 

CO 

He 

^2 

»2 


Reference 

Saturation curve 

14 

8 

39 

68 

41 

69 

9 

70 

42 

8 , 19 

Specific -heat -at -zero - 

71 

7 

72 

73 

71 

10 

9 

17 

42 

19 

pressure C « curve 

^ , P’° 

Reference values of 

71 

7 

39 

73 

71 

10 

9 

17 

42 

8 , 19 

temperature T^, 
enthalpy, Hq, 
and entropy, S^ 











Thermal conductivity: 











k*Ax 

c 

74 

75 

75 

76 

77 

76 

75 

28 

(a,b) 

^27 

k - k* 

74 

75 

75 

76 

77 

76 

— 

00 

CM 

(a,b) 

^27 

Surface-tension data 

43 

43 

43 

43 

43 

43 

43 

17 

78 

19 

k*, k Data 

79 

79 

79 

79 

79 

79 

79 

28 

(b) 

27 

ju Data 

79 

79 

79 

79 

79 

79 

79 

28 

(b) 

22 


^Special forms, not general. 

’^Private communication with H. J. M. Hanley, of National Bureau of 


Standards, Boulder, Colorado. 
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TABLE IV. - SUMMARY OF PVT RELATIVE ERRORS - FROM FIGURES 1 TO 17 


(See also PVT comparisons to other equations of state. ] 


Fluid 

Investigator 

Reference 

Estimated relative error 
[(Calculated - Experimental )/Experl 
percent 

a 

Range of data 

How 

acquired 

mental ]xlQ0, 

Temperature, 

K 

Pressure 

Density or 
volume 

Temperature 

Pressure 

Density 

CH^ 

Janaoone, Glelen, 

34 

±0,1 (1(a)) 

-0.5 to l.O (1(b)) 

-2.5 to 10 (1(c)) 

188.946 to 193. 601 

44. 738 to 49.995 

68. 5926 to 132. 4392 

Incrementing 


DeBoelpaep, Verbeeke 






atm 

cm^/g-mole 

volume 


Vennix (four points 

35 

±0,25 (2(a)) 

±1.0 (2(b)) 

±1.5 (2(c)) 

150.03 to 273. 38 

214.03 to 9935.55 

0.04088 to 0.36 

Incrementing 


with errors > 10 percent) 






psla 

g/cm^ 

volume 


Vennix*^ 

35 

±0.5 (3(a)) 

±0.005 (3(b)) 

±0. 2 (3(c)) 

150.03 to 273. 38 

214.03 to 9935.55 

0.04088 to 0.36 

Incrementing 








psia 

, 3 
p/cm 

volume 


Goodwin 

13 

-0.8 to 0.2 (4(a)) 

1 to 3 (with a 

±0. 5 (4(c)) 

176 to 300 

2.7962 to 35.2726 

2.990 to 25,929 

Isobarlc 





few points to 20) 



MPa 

g-mole/cm^ 

incrementing 





(4(b)) 





tempera hire 


Strobrldge 

7 

^-4 to 0. 5 (6(a)) 

*^-10 to 2 (much 

*^-1.3 to 0.8 









higher values at 

(6(c)) 









high densities) 










(6(b)) 







Coleman and Stewart 

37 

Higher differences^ 

Very large differ- 

8 to 1,2 








at lower tem - 

ences^ at high 

(7(c)) 








peratures 

densities) 









(7(a)) 

(7(b)) 








36 



±0.4 (9(b)) 

80 to 140 

2. 508 to 27.019 

0. 2653 to 0. 8071 








atm 

g/cm^ 

Incrementing 










temperature 

°2 

Weber 

39 

±0. 15 (11(a)) 

±2 (with a few 

±0. 2 (with maximum 

54 . 5 to 300 

0,438 to 357.53 

6.44x10"^ to 

Incrementing 





points at much 

deviation of ±2) 


atm 

4. 1134 ixio'^ 

temperature 





larger values) 

(11(c)) 



g-mole/cm^ 






(U(b)> 






Ar 

Van Itterbeck, Verbeke, 

40 

±0.3 (13(a)) 

±5 (with some 

-0.3 to 0,4 (13(c)) 

90. 15 to 148.25 

10 to 288 atm 

0.795 to 1.439 

Various 


Staes 



higher scatter) 




g/cm^ 

isotherms 





(13(b)) 






CO- 

Michels, Blalsse, and 

41 

±0.1 (14(a)) , 

±0. 5 (with a 

iA (14(c)) 

276.003 to 313.237 

36.318to98.497 

0. 10336 to 0. 91507 

Various 


Michels 



few points to 



atm 

g/cm^ 

isotherms 





5 |>ercent (14(b)) 






He 

McCarty 

16. 17 

±1 (with greater 

±0. 1 (with errors 

±1 (with errors to 

(e) 

(e) 

(e) 





error close to 

to ±10 for sub- 

20 in critical 








critical point and 

critical) (15(b)) 

region) (15(c)) 








to ±10 for sub- 










critlcal) (15(a)) 







^2 

Prydz and Straty 

18,42 

±0. 2 (with scat- 

±0. S (with some 

±0. 2 (with scatter 

54 to 300 

0. 03 to 24 atm 

0.038 to 45. 1 

Isochorlc 




ter to ±20 near 

scatter to 4) 

to ±5 near critical 



mol/liter 





critical) (16(a)) 

(16(b)) 

(16(c)) 





»2 

Goodwin 

19 

±0. 15 (with scat- 

±0.4 (with scat- 

±0. 3 (with scatter 

13. 8 to 100 

0. 07 to 340 atm 

0.006 to 0.016 

Isochorlc 




ter to ±0. 4) 

ter to 2 at low 

to ±2 near critical) 



mol/cm^ 





(17(a}) 

pressure) (17(b)) 

(17(c)) 






^The figure number Is In parentheses next to the value of the error. 

^A comparison of Vennlx's data to Vennlx's equation of state. 

^The Strobrldge equation has been overextended to 1000 K and 100 MPa 
^Equation of Coleman and Stewart should not be used below 77 K. 
®"Data” from the program of McCarty (ref. 17 J, 
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TABLE V. - OPERATIONS SHEET FOR SUBROUTINE GASP‘D 


COMMON/PROPTY/KU, DL, DV, HL, HV, S, SL, SV, CV, CVL, CVV, CP, CPL, CPV, GAMMA, GAMMAL, GAMMAV, C, 
CL, CVP, MU, MUL, MUV, K, KL, KV, SIGMA. EXCL, EXCV, EXCESK 
COMMON/DERIV/PDT, PTV, PDTL, PDTV, PTVL, PTVV 
REAL MU, MUL, MUV, K, KL, KV 

CALL SETUP (NAMGAS): Name fluid - HE for helium, CH4 for methane, NE for neon, 

N2 for nitrogen, CO for carbon monoxide, 02 for oxygen, AR for argon, 

C02 for carbon dioxide, F2 for fluorine, H2 for parahydrogen 


CALL WASP (KS, KP, T, P, D, H, KR) 
I ' ^ ^ \ \ 

I \ \ \ ' 


\ V \ \ 

X \ \ \ 


Region 

KR=^0 Unknown, check KR returned 
KR=1 Saturation 
KR-2 Liquid 
KR=3 Gas and/or fluid 
Enthalpy, J/g 
Density, g/cm 

2 

Pressure, MN/m 
Temperature, K 


^Two-phase 
saturation - 


Thermodynamic and transport properties^ ^ 

KP=0 Only P, p, and T returned Entropy, S 

KP=1 H Enthalpy, J/g; (H), (HL), (HV) 

KP-2 S Entropy, J/(g)(K); (S), (SL), (SV) 

KP=4 Cy Specific heat at constant volume, J/(g)(K); (CV), (CVL), (CVV) 

Cp Specific heat at constant pressure, J/(g)(K); (CP), (CPL), (CPV) 
y Ratio of specific heats, Cp/C^; (GAMMA), (GAMMAL), (GAMMAV) 
c Sonic velocity, nm/sec: tCl <CL). (CVP) 

0P/3p Slope of PVT surface along an isotherm, MPa/(g/cm^), (PDT), (PDTL), (PDTV) 
0P/5T Slope of PVT surface along an isochore, MPa/K, (PTV), (PTVL), (PTVV) 

KP-8 p Dynamic viscosity, g/(cm)(sec); (MU), (MUL), (MUV) 

KP=16 k Thermal conductivity, W/(cm)(K); (K), (KL), (KV) 

KP-32 cr Surface tension, dyne/cm; (SIGMA) 

Input specification of independent properties 
KS-1 p = f(T, P); given T, P find p 

KS=2 P = f(T, p); given T, p find P 

KS-3 T = f(P,p); given P,p find T 

KS=4 T,p = f(P, H); given P, H find T, p 

KS-5 T, p = f(P,S); given P, S find T, p 
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TABLE VI. - UNITS SPECIFICATION KU^ 


Physical quantity 

KU=1 

II 

KU-3 

Temperature 

K 

K 


Density 

g/cm^ 

g/cm^ 

Ibm/ft^ 

Pressure 

MPa 

atm 

psia 

Enthalpy 

j/g 

J/g 

Btu/lbm 

Entropy, specific heat 

J/g-K 

J/g-K 

Btu/lbm-°R 

Sonic velocity 

cm/sec 

cm/sec 

ft/sec 

Dynamic viscosity 

g/cm-sec 

g/cm -sec 

Ibm/ft-sec 

Thermal conductivity 

J/cm-sec-K 

J /cm -sec -K 

Btu/ft-sec-°R 

Surface tension 

dyne /cm 

dyne/cm 

Ibf/ft 

(5E\ 


(atm)(cm^)/g 

(psia)(ft^)/lbm =« / 


\g / 


\788. 161/\lbm/ 

1 

i 

J/g 

0. 101325 J/g 

psia/°R 

(S), 

MPa/K 

atm/K 

psia/*^R 


^KU=4 and KU=5 permit the user to work in other units; however, the proper 


conversions must be entered into BLOCK DATA. See appendix I, problem 5. 
User’s program must have 

COMMON/CONV 123 /DCONV(5) , TCONV(5) , PCONV(5) 
COMMON/CONV4/SCONV(5) 

COMMON/CONV5/CCONV(5) 

COMMON/CONV6/HCONV(5) 

Store proper conversion in 

DCONV(4), etc. , for KU=4 
DCONV(5), etc., for KU=5 
such that 

DINPUT/DCONV(4) = g/cm^ 

TINPUT/TCONV(4) = K 
PINPUT/PCONV(4) = MPa 
HINPUT/HCONV(4) = J/g 
SINPUT/SCONV(4) =J/g-K 

when using KU=4 or KU=5. Transport properties such as dynamic vis- 
cosity, thermal conductivity, and surface tension will be in units of KU=1 
(same as KU=2), i. e. , (Units of KU=1) x (Conversion factor) = (Desired 
unit of input/output). 




TABLE Vn. - COMPUTER TIME ESTIMATES FOR 


VARIOUS SINGLE CALLS TO GASP ON 
IBM 7094-7044 


Fluid 

Type of call 


KS=1 

KS-2 

KS=3 

KS=4 

KS=5 

KS-1,KS=63 


Property 


Density 

Pressure 

Temperature 

Pressure, 

Pressure, 

All properties 





enthalpy 

entropy 



Time^, sec 

CH 

0. 008 

0.0025 

0.0037 

0. 09 

0. 12 

0.031 


.006 

.0016 

.0035 

.098 

. 11 

.025 

°2 

.0056 

.0028 

.0045 

.097 

. 13 

.036 

Ar 

.0071 

.0016 

.0038 

. 11 

. 12 

.023 

o 

O 

.0055 

.0018 

.0045 

.092 

. 13 

.021 

Ne 

.005 8 

.0015 

.004 

.091 

.098 

.021 

CO 

.0056 

.0020 

.0048 

.091 

. 11 

.031 

He 

.0076 

.0012 

.0032 

.081 

. 12 

.022 

^2 

.0056 

.0028 

.006 

. 11 

. 12 

.038 

»2 

.0098 

.0013 

.0032 

. 11 

. 13 

.022 


^Times are for single calls based on times for 100 calls averaged over the 
PVT range. 




TABLE Vm. - PROGRAM ASSEMBLY 



User’s data cards 
Other user subroutines 
Calls to subroutine GASP 
r KU=, KR= 

\ Call to subroutine SETUP 
L REAL MU, etc. 

COMMON/PROPTY/, etc. 

Beginning of user’s property subroutine 

User’s main program 

Job control cards and WASP subroutines 


The subroutines in GASP may be loaded in any order with respect to the 
user’s program. To run successfully, there must appear in at least one 
user subroutine the following: 

(1) COMMON/PROPTY/, etc. 

REAL MU, etc. 

(2) KU=1 (or 2, 3, 4, 5) 

(3) Other input variable specifications 

(4) Call to subroutine SETUP 

(5) Calls to subroutine GASP 

The COMMON/PROPTY/, of course, must be in the main program or 
subroutine where the user expects answers to be returned from GASP. 

It could be in several or all user subroutines. 
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TABLE X. - CONSTANTS AND COEFFICIENTS USED IN TRANSPORT EQUATIONS FOR DILUTE -GAS CONDUCTIVITY 
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TABLE XI. - MODULAR STRUCTURE OF GASP 


(a) Necessary routines 


Subroutine (♦ indicates multiple entry) 

Reason 

SETUP 

Overlays coefficients into COMMON blocks 

BLOCK 

Contains coefficients for all fluids 

* (CHECK, TCHECK, PCHECK, DCHECK) 

Performs region and limit checks for all subroutines; 
converts user’s units to internal program units 

ROOT POLY 

ROOTX SPLINA 

SOLVE 

Mathematical routines used in all iterative solutions 
necessary to calculation of properties 

DENS *(DSF,DDSF) 

PSSS DGUESS 

Used for KS = 1 request and to determine region number 
for most other KS and KP options 


(b) Optional routines 


Name 

Subroutine 

(* indicates multiple 
entry) 

KS or KP option 
involved 

Statement numbers 
in subroutine GASP 
to be modified 

Additional conditions for removal 

Pressure 

PRESS 

KS-2 

20 

Also remove derived property B 
and modify statements 110 and 140 

Temperature 

TEMP,TSS 

*(TSSF,DTSSF) 

*(TSF,DTSF) 

KS=3 (also KS=4 
and KS=5) 

30 

Must also remove ’’Derived input” 
module and modify statements 40 
and 45 

Derived input 

TEMPPH,TEMPPS 
+ (TSHF,TPSF) 

KS=4 (also KS=5) 

40 

45 

None 

Derived 
property A 

ENTH 

ENT 

HSSLVF 

*(HSS,SSS) 

*(HSLV,SSLV) 

*(HDINT,SDINT) 

*(HDINTF,SDINTF) 

KP-1 (also KP-2) 
KS-4 
KS-5 

60 to 110 

Must also remove ’’Derived input, ” 
modify statements 40 and 45, remove 
’’Derived property B, ” and modify 
statements 110 to 140 

Derived 
property B 

CPPRL 

CPPRLF 

SPCHV 

CVPS 

PTRHO 

SETCPO 

KP-4 

110 to 140 

i 

None 

Transport 

modules 

Vise, VISCD 

KP-8 

160 to 170 

May be removed individually or as a 
whole module 

THERM, CONZ , CONC 

KP-16 

180 to 190 

SURF 

KP=32 

240 
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TABLE Xn. - GASP DISASSEMBLY AND STORAGE REDUCTIONS^ 


To eliminate- 

Remove decks 

Substitute a 
dummy for- 

Storage saved 
(base 8) 

1. Nine of the ten gases 

Change SETUP and 
BLOCD accordingly 


(2147)g 

2. T,p = f(P,H) 

TEMPPH 

TEMPPH 

(314)g 

3. T,p =f(P,S) 

TEMPPS 

TEMPPS 

(263)g 

4. T,p =f{P,H) 
or f(P,S) 

TEMPPH, TEMPPS, 
TSHF,ROOTX 

TEMPPH, TEMPPS 

(1430)g 

5. Enthalpy (also 
T,p = f(P,H) and 
CV,CP for p > Pg^itch^ 

ENTH, TEMPPH, 

SPCHV,CVPS, 

SPLINA 

ENTH, TEMPPH, 
SPCHV 

00 

CO 

CM 

6. Entropy (also 
T,p = f(P,S)) 

ENT, TEMPPS 

ENT, TEMPPS 

(475)g 

7. cv,cp,r,c,ap/3T, 
3P/9p, for all p 

CPPRL,CPPRLF, 

PTRHO.SPCHV, 

C VPS, SPLINA 

CPPRL 

(3314)g 

8. CV,CP,y,C,3p/aT, 
3P/0p, for all p; 
Enthalpy, entropy; 

T,p = f(P,H) or f(P,S) 

Decks in 4 and 7; also 
ENTH, ENT, HSS, 
HSSLVF, HSLV, SETCPO, 
HDINT,HDINTF 

TEMPPH, TEMPPS, 
CPPRL, ENTH, ENT 

(734 l)g 

9. Viscosity 

VISC,VISCD 

Vise 

(1127)g 

10. Thermal conductivity 

THERM, CONC, CONZ 

THERM 

(1530)g 

11. Viscosity and thermal 
conductivity 

VISC, THERM, CONC, 
CONZ, POLY, VISCD 

Vise, THERM 

(3104)g 

12. Surface tension 

SURF 

SURF 

(151)g 


^Certain portions of GASP may be eliminated to gain more space for the user’s own program. 


This table gives the amount of storage space to be saved when calculations which are not of 
interest to the user are omitted. The second column lists the decks to be physically re- 
moved from GASP. The third column shows the deck names for which dummy entry points 
must be prepared. A dummy entry point consists of no more than the deck name with 
argument list, followed by a RETURN and END. For example, to omit the viscosity cal- 
culation remove VISC and insert a dummy deck in its place; 

SUBROUTINE VISC(K1,K2,X1, X2,X3) 

RETURN 

END 

See also example appendix G. 
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Relative error, [0 'q;^5p “ "^exp^^^exp^ ^ percent 




(c) Density. 


Figure 2. - Percent relative error in temperature, pressure, and density for methane data of Vennix (ref. 35) as function of reduced data 
based on calculated values from Bender's equation of state kef. 4). 
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Figure 3. - Percent relative error in temperature, pressure, and density for methane data of Vennix (ref. 35) as function of reduced 
data, based on calculated values from Vennix's equation of state (ref. 35). 
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Figure 4. - Percent relative error in temperature, pressure, 
and density for methane data of Goodwin (ref, 13) as 
function of reduced data, based on calculated values from 
Bender's equation of state (ref. 4). 
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Figure 5. - Percent relative error in pressure and 
density for methane data of Goodwin (ref. 13) as 
function of reduced data, based on calculated values 
from Stewart-type equation (ref. 44) fit by McCarty 
(ref. 46). 
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Figure 6. - Percent relative deviation in temperature, pressure, and density for nitrogen data of Strobridge (ref. 7) as function of reduced data, based on 
calculated values from Bender's equation of state (ref. 4). 
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Figure 7. - Percent relative deviation in temperature, 
of reduced data, based on calculated values from Ber 


Reduced pressure, P/P^ 
(b) Pressure. 



Reduced density, p/p^. 


(cl Density. 

ressure, and density for nitrogen data of Coleman and Stewart (ref. 37) as function 
er's equation of state (ref. 4). 









LO 1.2 1.4 1.6 1.8 2.0 2.2 2.4 2. 


Reduced density, p/p^ 
(b) Density. 


Figure 10. - Percent relative error in pressure and density for 
nitrogen data of Weber (ref. 36) as function of reduced data, 
based on calculated values obtained from Stewart-type 
equation I ref. 44). 
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Figure 13. - Percent relative error in temperature, pressure, and density for argon data of Van Itterbeek, Verbeeke, and Staes (ref 40) as function 
of reduced data, based on calculated values from Bender's equation of state Iref. 4). 
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Figure 15. - Percent relative error in temperature, pressure, and density for helium data of Mann (ref. 11> as function 
of reduced data, based on calculated values from McCarty (ref. 17). 
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Figure 16. - Percent relative error in temperature, pressure, and density for fluorine data of Prydz and Straty (ref. 
calculated values from Bender's equation of state in GASP, fit by authors. 
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Figure 17. - Percent relative error in temperature, pressure, and density for parahydrogen data of Roder 
Weber, and Goodwin (ref. 19) as function of reduced data, based on calculated values from Bender's 
equation in GASP, fit by authors. 
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Figure 18. - Percent relative error in 
temperature, pressure, and density for 
parahydrogen data of Roder, Weber, and 
Goodwin (refs. 8 and 19) as function of 
reduced data, based on calculated values 
obtained from Stewart -type equation 
(ref. 44). 
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Figure 19, - Percent relative deviation in temperature, pressure, 
and density for parahydrogen results of McCarty and Weber 
(ref. 20) as function of reduced data, based on calculated values 
from Bender's equation In GASP, fit by authors. 
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Figure 21. - Percent relative error in density and pressure for oxygen 
data of Streett (unpublished data) as function of reduced data, based 
on calculated values obtained from Stewart -type equation (ref. 44). 
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Figure 22. • Viscosity data of Diller (ref. 50) as function of reduced density. 
Critical temperature. 32. 976 K; critical density, p^.. 0.0314 g/cm. 
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Figure 23. - Percent rela- 
tive error in viscosity as 
function of reduced den- 
sity for nitrogen data of 
Hellemans (ref. 541 and 
DeBock (ref. 51) com- 
pared with calculated 
values. 
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Figure 24 - Percent rela- 
tive error In viscosity as 
function of reduced den- 
sity for oxygen data of 
Van ltterbeek(ref. 53), 
Grevendonk (ref. 52), 
and Hellemans (ref. 54) 
compared with calculated 
values. 
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Figure 25. - Percent relative error in vis- 
cosity as function of reduced density for 
argon data of Van Itterbeek (ref. 53), 
DeBock (ref. 51), and Haynes (ref. 55) 
compared with calculated values. 
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Figure 26. - Percent relative 
error in viscosity as func- 
tion of reduced density for 
neon data of Forster (ref. 62) 
compared with calculated 
values. 
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Figure 27. - Percent relative error in viscosity as 
function of reduced density for carbon monoxide 
data of Boon (ref. 64) compared with calculated 
values. 
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Figure 28. - Percent relative error in viscosity as function 
of reduced density for methane data of Haynes (ref. 59) 
compared with calculated values. 
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